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COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 

DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 

ALL RIGHTS RESERVED. 

THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE D WITH THE 
INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS RE OR ANY OTHE 
COPIES THEREOF MAY NOT BE VIDED OR OTHERWISE MADE AVAILABLE TO ANY 
OTHER PE NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


® 

® 

® 

® 

ia 

® 

® 

® 

* 

. RSON. 
* TRANSFERRED. 
® 

‘ THOUT NOTICE 
® 

® 

® 

5d 

t 

® 

® 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WI 
IGITAL EQUIPMENT 


AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIG 
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:++ 
; FACILITY: 
; UETP == TEST PACKAGE CONTROL PROGRAM 


; ABSTRACT: 

; This program will serve as the controlling program between various 
test programs. It will create the test progres (either .EXE or 
-COM) as detached processes and run them either sychronously or 
asychronously. 


: ENVIRONMENT: 

; This progres will run in user access mode, with interrupts enabled 
3 at at times. This program requires the following privileges and 
; uotas: 

: ’ either SETPRIV or (DETACH and WORLD) 


; AUTHOR: Brian A. Axtell, CREATION DATE: December, 1982 


; MODIFIED BY: 


V03-011 RNHOOO03 Richard \. Holstein, 07-Apr-1984 
Adapt to security change which put mailbox logical names in 
job tables rather than group tables. When reporting failure 
of some process, always return full text of error code. x 
bug whic reer ter wrong status when process creation failed. 
Indent all of copied log file Lines uniformly. 


v03-010 RNHOO02 Richard N. Holstein, 22-Mar-1984 
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Fix bug which thought that turning off a test was a syntax 
error. 


V03-009 BAAO Brian A. Axtell, 17-Jan-1984 
erry "capability to change the parallel count number 
Rie caily from within a data file. 
ized oth er ase lgnaents so that they “don't write messages 
ng around 
adder wrepeTTA keyword, $o one could end with it instead of EOF. 
Added the capab haoet of using abbreviations of keywords. 
Fixed bug with PROCESSES. The FORCEX was Be ages images 
so fast chat” the Process Termination AST was bein led and 
distroying the queue before all the processes could be stopped. 
The fix was to calculate the offset to the next process before 
aborting the current process. 


v03-008 BAADOUS Brian A. Axtell, 03-Jan-1984 
tines gb with getting error messages when already 
n ABORT sequence. 


V03-007 RNHOO001 Richard N. Holstein, 19-Dec-1983 
Use LIBSSIGNAL or SPUTMSG throughout, instead of LIBSPUT_OUTPUT. 


v03-006 BAA0005 Brian A. Axtell, 16-Aug-1983 
Set flag so beginning and ending sentinels are always 
printed out. 


V03-005 BAA0004 Brian A. Axtell, 15-Jul-1983 
o- re rerntt before prompt in interactive mode. 
nged locally defined symbol to global symbol 
fpac M_LOGIN) for SCREPRC 


v03-004 BAA0003 Brian A. Axtel. 21-Mar-1983 
Changed attributes of the — Hite FAB's. Put a header 
of blanks when copying records ite log file. Change 
Labels of the inputs from the CLD file. 


V03-003 BAA0002 Brian A. Axtell, 17-Jan-1983 
Changed process termination routine so that it reports 
errors when a process aborts abnormally. 


v03-002 BAA0CO1 Brian tell, 16-Dec-1982 
Changed the way PRCINF OS. FLAGS was defined. 


v03-001 LDJ0001 am es, 16-Dec-1982 
Added a $ to thee TCN RLBEF® mares call. 
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-SBTTL Declarations 
; INCLUDE FILES: 


; MACROS: 
SSSDEF ; for system services 
SDEVDEF ; device charac. via RMS 
SDVIDEF ; for SGETDVI values 
SDCDEF : for device characteristics 
SJPIDEF : for GETJPI system service 
SLNMDEF ; Logical name services codes 
SPQLDEF 3; for CREPRC system service 
SCHF DEF :; Condition handler frame definition 
SDSCDEF :; include offsets for descriptor 
SDIBDEF 3; Device Information Block 
SSHRDEF ; Shared messages 
SSTSDEF ; Status return 
SACCDEF 3; accounting messages 
SPRVDEF 5 pr test one offset values 
SNAMDEF ; to get NAM offsets for parse 
SLIBDEF ; to get LIB error symbols 
STPADEF ; to get TPARSE srepe3? 
SPRCDEF ; CREPRC 


get masks for 
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PRDYRDPAD Gass ££ BS BS ES BE EA ANI WANING PONIPIPINPI NIN 2 SS SO OO OO OS OOOO 
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0 
0 
0 
00 
09 
00 
0 
00 
00 
0 
00 
00 
00 
00 
Bb SUE TPDEF ; UETP symbols 
3; now define the various offset used by the TSTCNTRL. These include 4 
0 ; TCNTRL$, PRCINFO$, PARSE$, CASES, CRIPRC$, and ASSIGNS. 
STCNTRLDEF :; definitions for the TSTCNTRL 
; EQUATED SYMBOLS: 
: Facility number definitions: 
000000C3 TCNTRL_K = 195 ; define the facility code 
00000001 RMS_K = 1 
; SHR message definitions: 
00¢€30000 TCNTRL = TCNTRL_K@STS$V_FAC_NO ; Define the TCNTRL facility code 
00C310E0 TCNTRL$_ABENDD = TCNTRL!SHRS_ABENDD =; Define the TCNTRL message codes 
C 008¢ TCNTRL$_ABORT = TCNTRL!SS$_ABORT 
C 8 1 TCNTRL$_CONTROLC = TCNTRL!SS$_CONTROLC 
0€31038 0 TCNTRL$S_BEGIND = TCNTRL!SHRS_BEGIND 
00C€31080 0000 TCNTRL$_ENDEDD = TCNTRL!SHRS_ENDEDD 
BRE 1098 8 TCNTRL$_OPENIN = TCNTRL!SHRS$_OPENIN 
0¢31130 it TCNTRLS_TEXT = TCNTRL!SHR$_TEXT 
3 3 set up definitions 
3 3; define the maximum number of processes which can run concurrently 
AE 6 NUMB_OF SLOTS = 50 ; number of slots in one structure 
000020 8 PAGE_SIZE = 512 3 number of bytes in a page 


— | 


6 1 
TSTCNTRL TEST PACKAGE CONTROL PROGRAM 16-SEP=1984 01:30:05 VAX/VMS Macro V04-00 p Pi T 
vo4-000 beclerat ions Seer ISSe Bli3h:83 PARC UME Maceo UCR OO, Page 8, i 


164 
168 3; misc. assignments 
00000084 16 RCRD_SIZE = 132 : size of text strings 
0000100 168 LARGE BUFFER = 256 S size of Lerge outpet strings 
4h 4d 8 199 E— SIZE = 9 ; max size of a filename 
0000054 44 iY MAILBOX_SIZE = 84 3 size of AST mailbox 
00000004 000 1% NBR_HDR_BLNKS = 4 ; number of blanks in header of 
4 V7 ; output records 
3008 109 ; declarations of filespec information 47 
00000009 0000 177 FILENAME aa at =9 ; max Length of VMS fil 
00000004 0000 178 FILE EXT-LNGTH = & S size of VAS file extension (ine .) 
0000000F 44 1 PROCESS "RANE. B17 = 15 3; max Length of VMS processname 
0000 13) ; declarations of information for TSTCNTRL ID number and process name 
00000004 0000 188 1D_S = ; number of digits 8 ID string 
00000062 44 184 ID ~S VERSE AD si = e. 3 underscore and blan 
00000009 0000 185 PNAME_FILNAM_SIZ = PROCESS _NAME_SIZ- 
0000 186 -10_ stRe siz iD OVERHEAD SIZ ; largest size the filename can 
0000 187 ; be to be put into the process- 
0000 188 3 mame. Anything Larger is truncat 
0000 189 MAX_TMP_LOG_NAM = FILENAME_LNGTH=- 
00000005 0000 190 -ID-STR_SIZ 3 maximum size of extracted 
5000 131 : filename for temp. log files 
0000 198 ; declarations of timer ID's and delta time for waiting for aborted 
it 138 3; process to terminate 
00000001 44 196 MAXTIME_ID = 1 ; ID for MAXTIME 
00000002 aia 13 ABRT_TIAM_ID = 2 : ID for the abort timer 
0000000F 44 44 ABRT_DELT_SCNDS = 15 ; set timer for 15 seconds 
$444 20 ; define symbols for carriage-return / Line-feed 
0000000D $000 08 CR = “x0D : ascii code for carriage rtn 
0000000A 0000 204 LF = “XOA : ascii code for Line-feed 


TRTCHTRL 
Read- 
0000 
or 
20 3E 4C 52 54 4E 43 54 
0000000A 
FFFFFFFF F70F2E80 
52 50 24 4D 4E 4C 0000001A'010E9000' 
54 435 45 52 49 44 SF 53 53 45 43 4F 
59 52 4F 
45 54 24 4D 4E 4C 00000037'010E0000' 
4C 49 41 4D SF 59 52 41 52 4F 50 4D 
58 4F 42 
0002 0010' 
00000000" 000004FE' 
00000000 
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-SBTTL Read-Only Dat 
-PSECT RODATA,NOEXE, TAOWRT, PAGE 


; prompt for interactive TSTCNTRL 

TCNTRL_PRMT: ; prompt for interactive 
-BYTE CR 
-BYTE LF 
ASCII /TCNTRL> / 


TCNTRL_PRMT_SIZ = . = TCNTRL_PRMT ; size of prompt 


; Quadword delta time for the abort process timer 
PROC_TERM_DELT: 


«CONG =10*%1000*1000*ABRT_DELT_SCNDS,-1 ; wait time for aborted proc. 


; data structures so that mailboxes which serve as SYSS$INPUT to the 
3; processes we create are created in our group logical name table. 


LNMPRCDIR: ; Table name to force mbx logicals... 
-ASCID /LNMSPROCESS_DIRECTORY/ ; ...to appear in a group table 


LNMTMPMBX : 3 bepress name which tells SCREMBX.. 
-ASCID /LNMSTEMPORARY_MAILBOX/ ; ewhere to put mbx logical names 


LNMITMLST: ; ee Pm ITMLST naming where mbx. 
«WORD __LNMGRPLEN,LNMS$_STRING ; ...logical name is to be defined 
“ADDRESS LNNGRPNUM, 0 
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; space for $GETJPI to get the quotas of the parent process 


QUOTA_LIS: 


. 4 

«WORD JPI$_ASTLM 
ate ASTLM 
«LONG 


~WORD 4 

«WORD JPI$_ CPULIM 
«ADDRESS CPULM 
«LONG 0 


«WORD 4 
«WORD JPI$_DIOLM 
ADDRESS DIOLM 


~WORD 4 

»WORD JPI$ ENQLM 

-ADDRESS ERNQLM 

-LONG 0 

«WORD 4 

~-WORD JPI$S_FILLM 

-ADDRESS FILLM 
NG 0 


. 4 

~WORD JPI$_PGFLQUOTA 
-ADDRESS PGFLQUOTA 
-LONG 0 


“WORD 4 

“WORD JPI$_PRCLM 
“ADDRESS PRCLM 
“LONG 0 

“WORD 4 

“WORD JPI$ TOLM 
ADDRESS TGELM 
“LONG 0 


~WORD 4 

-WORD JPI$_WSQUOTA 
tw WSQUOTA 

- LONG 

~WORD 4 

-WORD JPI$_PRIB 
-ADDRESS BASPRI 
«LONG 

- LONG 
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-ASCID /TSTCNTRL beginning abort sequence. All active process to be stopped 
-ASCID /Internal data structure corrupted, returned process not found./ 


-ASCID \Could not create the -!AS- process, status returned was:\ 
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414 43 CNTRLC_MSK: ; —< which holds ASCII code for 
00880008 414 4 . LON Q : e CNTRL-C 
ht «LONG *x0008 
rt ; to hold extension for log files 
41C LOG_EXT_DESC: 
47 4F 4C 2E 00000424'010E0000' rt «ASCID /.LOG/ ; descriptor of extension for log fi 
4 NIL_EXT_DESC: ; nil descriptor so that MAKE_ 
00000430'010E0000° 04 eASCID // ; TMP_LOG_NAM could be used to 
4 ; maké a Togical name 
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4 7 ; area to hold records to be written into the temporary command procedure 
4 8 ; which is created when parameters are to be passed to the command 
? 2 3; procedure being started up 
4 61 COM_STAT_DESC: ; descriptor to get the final 
4 4E 43 38 ¢° $4 0000438" 1°F 0090" 4 62 -ASCID /$ TCNTRLSTAT = $STATUS/ ; status of a command procedure 
4 55 24 20 3D 20 54 41 3 : ef if rhe 
rr: $3 ; which has parameters 
44E 65 COM_EXIT_DESC: ; descriptor to return the final 
54 $? 2 $3 ¢9 ee 99090476 °9 1059089" rf 66 ~ASCID /$ EXIT TCNTRLSTAT/ ; status of a command procedure 
467 ti ; which has parameters 
ace? +4 ; to hold extension for temporary command file 
0467 371 TMP_COM_EXT_DESC: 

31 4D 43 2E 0000046F'010E0000' 0467 i eASTID /.CM1/ ; descriptor of extension for 
ot oe : command file with parameters 
$4 375 COM_IMAGE: 

59 53 26 53 59 53 egg at the as 047 76 -ASCID /SYS$SYSTEM:LOGINOUT.EXE/ ; image name for com file 
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#3 rf 3; READ-ONLY SECTION FOR PARSE 
49 0 ; FAO strings fo hold the error messages for the parse routine. 
49 1 ; message consists of printing the record that failed and the token 
#3 ¢ ; that it failed on. 
49 4 RCRD_ERR_MSG: : syaten ofrer in record 
ere 12 69 20 rh 85 TASCID \Syntax error with record. Record skipped <= !/ !AD \ 
$s 4F 8 65 2 tar 
68 °'3 sy Se 7 48 
20 2F 21 20 2D 04C4 
4CD 86 
4CD 87 TOKEN_ERR_MSG: en which failed 
90405"01050000" 409 88 .ASCID \Invalid symbol or keyword. bet t “= !/ 'AD \ 
6D 79 73 ? 64 Bog 
6F 77 79 6 $8 O4E 
69 20 6C 6F 6 ty 
20 44 41 21 20 O4GFF 
0304 390 
0504 91 : ASCII strings of the various file types, used to determine what kind 
0504 38 ; of file we have 
0504 9 
0504 394 EXE_STR: 
45 58 45 2E 0504 95 «ASCII /.EXE/ : for images 
0508 96 
0508 397 COM_STR: 
4D 4F 43 2E 0508 398 ASCII /.COM/ ; for command procedures 
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v04-000 Process Info Data Structure =SEP-1984 04:26: UETP.SRCJUETPHASOO.MAR; 1 
100 IVER SZ! SPARE ! 
104 
complete 
' file { 
| specification: 
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The structure is accessed by three pointers: the AVAIL_LIST_HEAD which points 
to next available free slot, the COMPLETE_Q_HEAD which points to the head 
of the queue of completed processes, and thé CURRENT_LIST_HEAD which points 
to a List of currently running processes. As slots are returned to the 
available List, they are inserted at the head. 


; make enough initial space to hold NUMB_OF_SLOTS processes 


PROC_INFO_TOP: ; top of proc_info List 


PEELE LLL LEER EEE EE EOOOOCOOCOOO OOO OOOO OCOOOO 
DOOCOCCOBMBMBBDMDODSOSCSCOSOSOSCSOSSSSSOSOSOSOSOSOSOSSOSOSOSOOS 
Fe oe ot ot nt at a MMU MUAUMUAMUAMAMUAMUMMAMUtMUMUtmuUMMuMeaMeeeee 
WOO 000000000000 0000 0000 0009 09 SI INI NIN NIN NNNINIA A AAAAAAAOUIUIN 
WO NANE WN OOO NAU EWN OOWONOUEWN (ODD NAUE Wi OWON 


00004650 .BLKB NUMB_OF_SLOTS * PRCINFO$S_PRC_INFO 
3 now make headers for the different types of Lists 
: first for the available slots List 
AVAIL _LIST_HEAD: ; header for available List 
00004658 -BCkKQ 1 
:; for the completed process queue 
COMPLETE_Q HEAD: ; header for completed 
00004660 -BCKQ 1 3 process queue 
; and for the currently running processes List 
CURRENT_LIST_HEAD: ; header for currently running 
00004668 -BLKG 1 ; process List 
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TOTAL_PROC_RUN: 
.LONG 0 


TOTAL_PROC LIMIT: 
. LONG 
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PRIV_MSK: 
«QUAD 0 


ACTIVE_PROC LIMIT: 
-LONG 1 
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; set up space to hold the values of the various counters 
; # of active detached processes 


; total # of detached processes 


detached processes 


PARCNT, Limit of total 
detached processes 


; quadword to hold privileges 
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53 5F 45 4C 49 46 00000035'010E0000' 
43 45 50 


4C 4C 41 oe ¢ 50 0000004 28 9105009 
4E 55 4F 435 SF 4C 4 
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45 50 


45 54 45 4C $7 44 0009006F '010E 
45 4C 49 46 SF 47 4F 4 
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enable control-c ast's. 


descriptors of keywords for the CLI 


FAC_DESC: 
eASCID /FACILITY_CODE/ 


FILNAM_DESC: 
sASCID /FILE_SPEC/ 


PARCNT_DESC: 
.ASCID /PARALLEL_COUNT/ 


REPORT_DESC: 
-ASCID = /REPORT_TYPE/ 


DELLOG_DESC: 
»ASCID /DELETE_LOG_FILE/ 


; and descriptor areas for the respective 
FAC_IN: . ' : 

BYTE OSCSK_OTVPE_1 OSCER_CLASS_D 
FILNAM_IN: 

-BLKW 1 

BYTE PSCEK_DTYPE 1 .BSCER_CLASS_D 

-BLKL 


REPORT_IN: 
BLKW 


-BL 1 
“BYTE DSC$K_DTYPE_T,DSC$K_CLASS_D 
“BLKL 1 

PARCNT_IN: ; 
-BLKW 
“BYTE — DSCSK_DTYPE_T,DSCSK_CLASS_b 
[BLKL 


data area for inputs to the TSTCNTRL (FILNAM, DELLOG 
and PARCNT). there are descriptors of the keywords 
CLI and buffer areas to put the value associated with the keywords. 


also included here is the information needed to do a $GETDVI on 


SYSSCOMMAND. this is to find out if the TSTCNTRL i 
from a Neen Hh or not (so that we know whether or not to 


; descriptor 


descriptor 


descriptor 


descriptor 


descriptor 


values 
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REPORT, 
for the 


s being run 


of FACILITY_CODE 


of FILNAM 


of PARCNT 


of REPORT 


of DELLOG 


desc for FAC value 


desc for FILNAM value 


desc for REPORT value 


desc for PARCNT value 


; the facility code that may have been changed 
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FAC_CODE: 
-BLKL 1 


SSEP=198 
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; item List for SGETDVI on SYSSCOMMAND 


COMMAND_ITM_LST: 


«WORD 4,DVI$S_DEVCLAS 
«LONG JNADEVICE CLAS 
«LONG 

«WORD 64,DVI$_DEVNAM 
«LONG IN_DEVICE_STR 

«LONG JNADEVICE DESC 
«LONG 


IN_DEVICE_DESC: 
SADDRESS IN_DEVICE_STR 


IN_DEVICE_STR: 
-BLKB 64 


IN_DEVICE CLASS: 
-CONG 0 


SYS_COMMAND : 
-ASCID /SYSSCOMMAND/ 
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acre v04- Page 


new facility code 


item list for $GETDVI 
find out if it is a terminal 
put result here 


get X-lated name of device 

put name er pgnvece here 

and size 

end-of- Bg list 

descriptor to hold translated 

name of SYSSCOMMAND 

buffer to hold translated name 
buffer to hold value of class 

characteristics 


descriptor of SYSSCOMMAND 
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11D MBX_CHAN: 
0000 110 WORD 0 
11F ¢ TERM_BUFF: 
00000173 1H .BLKB MAILBOX_SIZE 
17 608 LOG_FIL_DESC: 
B808 000 ie 9 -LO 
00017B' 017 610 ADDRESS LOG_FIL_STR 
38 gi LOG_FIL_STR 
47 GF 4C 2€ 4C 52 54 4E 43 54 53 ry 178 18 "ASCII /TSTCNTRL.LOG/ 
00000286 01 i ele ~BLKB NAMSC _MAXRSS 
6 o18 MSG_BLOCK: 
0000028A 0286 61 ~BLKB 4 
028A 618 


P=19Be 04:26:08 
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; channel # of termination mailbox 


buffer to hold mailbox 
desc. for perm. log file name 


default name 
room for more 


hold $GETMSG info 


ve 
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TSTCNTRL 0: AX/VMS Macro Vv04-00 Pa 
v04-000 Read/wr lee Data -SEP-1 1382 8h; 38 ‘83 ta SRC} Wee eMasos. MAR; 1 ose qa 
r 6 9 ; descriptors for start and stop sentinels 
A § START_DESC: 
4 A LONG START_STR_LEN ; fill in with default 
¢ “ADDRESS START T's} R 
9 § START_STR: 
4E 49 67 45 eg 9 ASCII /BEGIN/ 
BRON ge 9 ? 8 START _STR_LEN = .=START_STR 
00318 97 -BLKB-RCRO_SIZE ; extra space if needed 
1B 8} 
18 6 STOP_DESC: 
te 18 -LONG STOP_STR_LEN ; fill in with default 
0000 1F ¢ - ADDRESS STOP. STR 
6 § STOP_STR: 
44 45 44 3 6 -ASCII /ENDED/ 
444 6 8 STOP_STR_LEN = .=STOP_STR 
00000 Re 6 -BLKB RCRO_SIZE ; extra space if needed 
AC Sey 
AC e¢§ GETCHN_DESC: 
00000074 a 64 ~LONG DIBSK_LENGTH 
00000284" 0 644 ADDRESS GETCHN BUF 
: 
4 re GETCHN_BUF : 
00000428 0628 on8 .BLKB DIBSK LENGTH ; buffer to hold get channel info 
4 650 
a 651 MBX_UNIT: 
0000 04 652 : ,WORD 0 z hold the mailbox unit number 
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42A 

42A 
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42A 

42A 

0000000C 2 
00000000 ri 
00000000 ? 

00000000 " ° 

00000000 r : 
00000000 rb 
00000000 o 
Q0000045E" 044 
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00000000 044A 

44E 
00900002 rt} 
00000000 $2 

00000000 0456 

45A 

00000000 045A 
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e Data 

§ CREPRC_LIS: 
PIDADR: — 


"LONG 0 
" LONG 0 


-LONG 0 


" ,LONG 0 
"  SADDRESS QUOTA_TABLE 


-LONG 0 
-LONG 2 


" LONG 0 
" SLONG 0 


Ig- 


SEP-19 
SEP=19 


4 
4 


8:28:03 


p++ 
é ; This area is for the SCREPRC gpreneter list. 
; Create Process Subroutine. 


9 
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It gets changed by the 


he default values are the ones shown. | 


; number of parameters 


3 use same quota's as parent 


vi 


3 
TSTCNTRL TEST PA KAGE A LONTROL PROGRAM 16-SEP-1984 01:30: AX/VMS Macro V04-00 Page 
v04-000 Read/write > g- yeti? By 30:88 UETP. SRC CE PpMasoo” MAR; 1 . 2, 
45E 6 § ; table to hold results of SGETJPI of the quota'’s of the parent process 
: E 3; to be used for $CREPRC 
45 § QUOTA_TABLE: 
01 045 : BYTE PQL$_ASTLM 
45F 691 ASTLM: 
00000006 45F 69¢ LONG 6 
463 69 “BYTE PQL$_BIOLM 
poooc0cg sete 65 tM lone « 
88 468 636 epee -BYTE PQL$_BYTLM 
00002090 183 38 "LONG 8192 
4 46 99 ae “BYTE PQL$_CPULM 
00000090 46 56 "LONG 0 
05 04 108 “BYTE PQL$_DIOLM 
473 703 DIOLM: 
00000006 0473 704 LONG 6 
0c 407 £05 eg BYTE PQL$_ENQLM 
00000032 be58 107 "LONG 50 
06 047C 708 .BYTE PQLS$_FILLM 
ooooo00a bee NO tM ane 10 
07 0481 711 “BYTE PQL$_PGFLQUOTA 
pees us PGFLQUOTA: 
00000800 O82 71 LONG 2048 
08 0486 714 .BYTE PQL$_PRCLM 
oooocons gene RT ane g 
09 o4be FIP _ {BYTE PQL$_TQELM 
oonoones gcse 8 lone 8 
0B 0490 £20 -BYTE PQL$_WSDEFAULT 
00000066 6491 52 WSDEFAULT: A 109 
OA b495 728 {BYTE PQL$_WSQUOTA 
0496 724 WSQUOTA: 
00000078 0496 125 : 120 
00 049A 726 E PQL$_LISTEND 
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; area to hold longwords for the flags 
; hold the main control case statement flags 


CONTROL te 
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; case statement flags 


; hold the create process case statement flags 
CREATE =Pat CASE: 
LONG 0 


; hold the TSTCNTRL flags 


- LONG 
ASSIGN_ wey BaG 


“X003E 


0 


; create process case flags 


; TSTCNTRL flags 


; flags for the case for the 
3 assignment routines 


K) 


aa 
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v04-000 Read/wr ety Pi 8) 30:83 
i PROC = TERA ISB; ; IO0SB to hold status of Q10 for a terminated process 
tenants | ; descriptor for user process name 
[ADDRESS PRCNAMSTR 


Tee PROCESS _NAME_SIZ 
EXIT_DESC: ; Exit handler descriptor 
1 HANDLER 
“ADDRESS STATUS 


4B 
Q000004CA ? 
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OADAY 
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"LONG S$S$_ABORT ; status on exit 
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GETUIC: 
»WORD 4 
«WORD JPI$_UIC 
~ADDRESS UTC_CODE 
- LONG 
-WORD 15 
«WORD JPI$_PRCNAM 
«ADDRESS PRCNAMSTR 
«ADDRESS PRCNAMDESC 
-LONG 0 

UIC_CODE: 
-LONG 0 

LNMGRPNUM: 
+ASCII /LNMSGROUP_/ 
LNMGRP = .-LNMGRPNOM 
-BYTE “A 


é 
LNMGRPLEN = .=LNMGRPNUM 


LNMGRPNIL: 


SrSEP=198 


Bete Se Ge Fe Ge Se Ge Se 


3 puerean es name giving the table.. 
; «eename in which mbx logical names. 


-are to be put 
snopheues to convert. 


<WORD _LNMGRPLEN-LNMGRP,DSCSK_ cLass. § 
“ADDRESS LNMGRPNUM+LNMGRP 


; holds current UIC 
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buffer Ma UIC from $GETJPI 
code for 

put it A, this address 

not used here 

size for process name 

get user process name 

put it here 

put size in descriptor 
terminate block 


TEST 
Read/wW 


a 
wee. 1 
S1E 
S1E 
526 


GE 


N 2 
vb4=000" “ate Seager "SrSEP=198¢ 04:26:08 LOE TPL SACIUETPHASOD- MAR; 1 (363 


PRC_NAM_DESC: 

. LONG 

“ADDRESS PRC_NAM_STR 
PRC_NAM_ST 


R: 
“ASCII /TSTCNTRL/ ; default process name 
-BLKB 7 ; space for a different name 


3; holds process name of TSTCNTRL 


4C 52 54 4E 43 54 53 54 
0000052D 0 


woowuowowowovowo = S 


SN 
ONOUNS wr 
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9 ; for error messages 
D § FAO_BUF: ; FAO output string descriptor | 
0000 b08s D «WORD RCRO_SIZE,0 
0000053D' 2 ¢ -ADDRESS BOFFER 
5 § BUF FER_ Ai i fake buffer for misc. strings 
0000 oO 5 D RCRD_SIZE,0 
0000053D" 2 ; § “ADDRESS BOFFER 
53D 10 BUFFER: ; FAO output buffer 
000005C1 279 1} -BLKB RCRD_SIZE 
5C1 18 GETMSG_DESC: ; descriptor for SGETMSG string 
0000 0084 etd 814 WORD RCRD_SIZE,0 
00000501" 05c¢5 HAF -ADDRESS GETMSG BUF 
05¢9 16 
05C9 817 GETMSG_PTR: 
0000 0084 05C9 18 «WORD RCRD_SIZE,0 
00000501" O5CD 19 SADDRESS GETMSG _BUF 
05D1 20 
Beet 821 GETMSG_BUF : 
00000655 05D1 8 § .BLKB RCRD_SIZE 
0655 8 
0655 824 TTCHAN: ; 
00000000 0655 825 -LONG 0 3; channel associated w/ contrl. term 


—— |) 


ccm 
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v04-000 head/urite Data -SEP=1984 te 32 ‘03 UETP.SRC ah ert MAR; 1 ™ 3) 
4 : 7 : READ/WRITE SECTION FOR PARSE | 
? § this section holds the results of the Reree routine. The Labels 
9 0 ; here are global throughout the entire TSTCNTRL and are used by the | 
638 3 various routines. 
659 PARSE _FLAGS: ; flags which are used by th 
0000065 0659 854 “BLKL trea: 
65D DATA_RCRO_DESC: ; descriptor of the input data 
00000084 065d 5 -CONG  RCRD_SIZE 3 record. record is placed here 
00000665' $6) 8 - ADDRESS SATE: RCRD_STR ; by RMS 
665 40 DATA_RCRD_STR: ; input record goes here 
000006E9 deés ] -BLKB = RCRD_SIZE . . 
dees rk COMMENT_DESC: ; descriptor to hold 
00000084 06E9 44 LONG RCRD_SIZE 3: comment field 
OO0006F 1° Beee rf “ADDRESS CORE STR 
O6F 1 29 COMMENT_STR: 3; comment goes here 
00000775 Berl a8 “,BLKB RCRD_SIZE 
0775 50 SPEC_DESC: ; descriptor to hold the T-parsea 
00000000 00000000 14 es 2) -QUAD 0 3; filespec 
077D HY : the following all pertain to the resultant filespec. this includes 
077D 854 : the complete filespec and descriptors pointing to the different 
14 $2? ; pieces of it. 
1443 Reo FILE_SPEC_DESC: ; descriptor of the resultant | 
OOOOCOFF 077D $28 -CONG NAMSC_MAXRSS : {i tes ec after RMS 
00006785" 9781 859 "ADDRESS FILETSPEC STR ! SPARSE 
O75 361 FILE_SPEC_STR: ; the actual resultant filespec 
00000884 Gy He -BLKB NAMSC_MAXRSS 
O84 bes ; these are the descriptors pointing into the filespec 
O84 66 NODE_DESC: ; point to the node part 
0000088C ssc és -—BLKQ 1 
8C 9 DEVICE_DESC: 3 point to the device part 
00000894 35 19 -BLKQ 1 
94 78 DIRECTORY_DESC: : point to the directory part 
0000089¢ 3 -BLKQ 1 | 
9C 73 FILENAME _DESC: ; point to the filename part 
000008A4 089¢ “BLKG. 1 | 
A4 78 TYPE_DESC: 3 point to the type field 
000008AC re -BLKQ 1 
AC VERSION_DESC: ; point to the version number 
00000884 aC -BLKQ 1 
| 
| 
| 


$$$ —_--—— 
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8 B4 ; Now set up data area for the remaining parts which are the results of 
+ 3; the parse 
ASSIGN_VALUE on”. ; descriptor to hold the value 
0000084 RCRD SIZE S of on oss ignment 
00088C' SADDRESS ASSIGN _VALUE_STR 3; statement 
91 ASSIGN, be a STR: ; the actual value 
00000940 9 BLKB RCRD_SIZE tr 
9 
95 PARAM_DESC: ; descriptor to hold the 
00000084 9 «LONG RCRD size. ; parameter string 
00000948' 4 ADDRESS PARKA. STR 
99 PARAM_STR: ; the actual string 
000009CC 0 -BLKB RCRD_SIZE 
DELIMIT: ; 1 byte buffer to hold delimiter 
000009CD -BLKB 1 ; of parameter string 


descriptor the hold unconverted 


TIME_DESC: 
-QUA 


peepee efoiofojelelelelelelolaloleleleleleleleloleleleia! 
rPrrrrrooowowowowoword IOWOWOWUWOVoWoVoUNoOoOoOoOoOO 

DAWA MMM COO C OV INNO ONO LLL LSS SWWWIIO 
SOOCCOCOOCOCO0OT 98 9F N19 FS FVOOOMBWWDLOCOCONOOOLLS 
woowowowow pote ee he tht te et $F OOo OOO Re ee ee te ee 
WR OODNOAUE WIN $$ O ODNOAU EWN 0 ODNAOU EW OOONOUS 


0 
0 
0 
00000000 00000000 3 0 ; time string 
08 TIME_VALUE: ; quadword to hold converted 
000009DD ? -BLKQ 1 3 system time 
1 
1 ; make RMS structures to parse the filespec 
: «ALIGN LONG 
} sittin 3° deal ; FAB for the parse 
: NAM = PRSE_FILESPC_NAM 
1 vaee Ee NAM: ; NAM to hold the filespec 
: ESA = FILE_SPEC_STR,-=- : expanded filespec goes here 
§ ESS = NAMST_MAXRSS ; this is maximum size 


| 


o Page § 
MS Macro VO4-00) 3 )| 
foes Ig-$60-19 4 9) 30:08 JETP. sre GETPHASOO MAR; 1 | 
TEST_PACKAGE CONTROL PROGRAR -SEP=1984 04: 
TSTCNTRL RMS-32 Data Structu andi bak tice | 
pee RT She 
a9 ; FAB for the data ne | 
n9 § BATALF ILE Te : sequential file only 
<SE0>,5 records | 
A 5 9 ah . RCRD_ SIZE, ; allow variable | 
= 
A § zea ; RAB for the data file records | 
RAB: ; 
AEQ 934 DATA.FILE RAB: eae I 
AB,- ; address o oy 
AE 3 ‘ Ber . TENTRE PRAT = : size of prompt string 
AE ; f pe? = TENTRLZPRAT“S1Z,~ 
A PM = a! 
ee 
a3 page pee: log files 
BBS ww sos.tan 1 HMR A°%ANSITTNES Sofas 
0Beo 944” One = <SEQ>,- z 
0B24 945 MRS = LARGE BUFFER, 
OBgs — 946 RAT = <CR>,= 
3S : se8 RFM = VAR 
Ep RAB: 
74 950 TMP_LOG_RAB: 
sere 951 *PAB = TMP_LOG FAB - 
pare O88 USZ = LARGE_BOFFE 
dese $84 LOG FAB: : FAB for perm log file 
: f 
a 986 eet 7 2 G_FIL_STR,- : ~ Pe the default size 
088 958 INS tee, as 
des +94 ae . LARGE BUFFER. - 
AR, = 
fe $6 mA = ths ill be 
90 ; RBF © RSZ fields wil 
tp 4 CNTRL_LOG RAB: : inserted dynamically 
3 a ~'SRAB - pA | 
¢ 965 FAB = CNTRL_LOG_F pe | 
967 FAB for temporary file 2 | 
Ft: COM_FAB : start up .COM with parame 
cee is NORE csee>.- | 
coe 37) MRS = LARGE BUFFER, | 
c RAT = <CR>,= 
cae 978 niet mare ters 
97 ile with parame 
c3¢ r3 COM_RAB: é ~ = aS? wit be inserted dynam 
e9¢ arg ’ aS COM_FAB FAB to erase temp. command tiles 
cE ? : | 
i co 
13 es + ORG = <SEQ>, 
| 


8 


rest. ACKAGE CONTROL PROGRAM 


Data Structures 


Te-SEP P- 


ats 3} MRS = LARGE BUFFER, 


71986 84:20:08 
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SOT 18°8e area for ID descri pt or 
PSECT ID_DESC_LOCAL,ABS ,NOEXE ,NOWRT , PAGE 
; PSECT to define offsets of local variables to the create process- 
: name subroutine. No values are stored here, these are only 
2 ; offsets and the actual values are stored on the stack. 
38 ID_DESC: 
00000004 Bee -BLKL 1 ; to hold size of ID string 
4 38 ID_ADDR 
00000008 4 3 BLKL 1 ; to hold address of string 
o8 398 ID_STR: 
0000000C : ] ? -BLKB ID_STR_SI2Z ; 1D string 
ooc 1 § 1D, : ; ID number 
00000010 O16 : S7 -BLKL 1 
00000010 0010 1005 ID_DESC_LENGTH =. ; length of block 
010 1006 


TEST PACKAG 
Local area 


1 


00000008 
00000015 


00000019 
0000001D 


0000011D 


44 $F 9 
00000125 


00000225 


80000860 


00000835 


00000242 
b00008«a 


00000259 
00000259 


OOOD KP PONV 9 9 SD OMIM O OOO FCF OMUMOoaon & 


DOA EB BE WWW NPONNONofonony 3 BOC OOOO OOO > 


POPROPORIMOPOPOPIMIPONIPUPOPONOIPIPINININIPD — — 9 2 3 3@ 2QOOOO 


OOOO OCOOCOCOCOCOCOCOCOCOCOOOCOCOCOOOCOOOCOoOO 


5 COgTneL PROGRAM 197360= 1388 §}: 30: 8 


r Process Termination Subro 


1 - SBTT 


; Subroutine. 


TRMNTN_COM_DESC: 
-BCKL 1 
-BLKL 1 
TRMNTN_COM_STR: 
-BCKB FILENAME_LNGTH+FILE_EXT_LNGTH 
LOG_RCRD DESC: 
LOG_RCRD_STR: 
-BLKB LARGE_BUFFER 


TEMP_BUFF DESC: 
-BLKL 1 
~BLKL 1 


TEMP_BUFF_STR: 
-BLKB LARGE_BUFFER 


TRMNTN_FIL_DESC: 
-BCKL 
-BLKL 1 
TRMNTN_LOG_DESC: 
-BCKL 1 
“BLKL 1 
TRMNTN_LOG_STR: 
-BCKB FILENAME_LNGTH+FILE_EXT_LNGTH 
RTN_NAM_DESC: 
-BLKL 1 
vos 
RTN_NAM_STR: 


“.BLKB PROCESS_NAME_SIZ 
PROC_TERM_LENGTH = . 


ae a ne a ts 3 4 hn a 4 a ns ss ne ts a We 4 


MEW SO OO NA UNE WIN OOD NIA NE WWIN  O OD NOU EWI SOO ONOAU EU O 


AX/VMS Macro V04- on? 
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Local area for Process Termination Subroutine 
-PSECT PROC_TERM_LOCAL ,ABS ,NOEXE ,NOWRT ,PAGE 


; PSECT to define offsets of local variables for the Process Termination 
No values are stored here, these are only offsets 
; and the actual values are stored on the stack. 


; descriptor to delete temporar 
Ad file wt 


comman 
address of string 
temporary command file name 
descriptor to hold temporary 
log file record 
address of record 
log file record 
temp. buffer to hold capitalized 
record to check for sentinels 
address of string 
capitalized string 
descriptor for terminated 
en 
pointer to filename 
descriptor for temp. log file 
me 


na 
address of log file name 


; terminated log file 


descriptor for the returned 
process’ process name 
address of process name 


returned process name 


Length of this block 


I 3 
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28 1057 “SOTTh bocal area for create command procedure w/ parameters 
: » PSEC EMP_COM_LOCAL ,ABS ,NOEXE ,NOWRT , PAGE 
1 ; PSECT to define offsets of local variables for creating a command 
1 ; procedure to which parameters are to be passed. No values are 
1 i; stored here, these are only the offsets and the actual values 
} ? ; are stored on the stack. 
1 $3 TEMP_COM_DESC: ; holds the filename for the 
00000004 1 96 -BLKL 1 ; temporary command file (used 
00000008 & : -BLKL 1 ; when passing parameters) 
1 f TEMP_COM_STR: ; holds the filename 
00000015 , ! y -BLKB FILENAME_LNGTH+FILE_EXT_LNGTH 
15 1 i COM_LINE_DESC: ; holds the command Line to start 
90909918 15 107 -BLKL 1 ; up the real procedure. done 
0000001D Bote 1 a -BLKL 1 3; as an indirect procedure 
a01b 1 6 COM_LINE_STR: ; the complete filespec (look Like 
0000011D 112 } 4 ~-BLKB LARGE_BUFFER :; ‘‘Safilespec -"') 
0000011D S11 1999 COM_PARM_LENGTH = . ; length of this block 
011D 1080 


2 eel 


— | 
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11D «1 -SBTTL Local area for Create Process Subroutine 

-PSECT CREAT_PROC_LOCAL ,ABS ,NOEXE ,NOWRT ,PAGE 


; PSECT to define offsets of local variables for the Create Process 


; Subroutine. No values are stored here, these are only offsets 
; and the actual values are stored on the stack. 


00000045 


110 1 ‘ 
1084 
} 5 
5 
1 § TEMP_PNAM DESC: i; holds the pracese name of 
90000008 1090 -BLKL 1 ; the detached process 
00008 4 } 4 -BLKL 1 
1 38 TEMP_PNAM_STR: ; holds the actual process name 
00000017 Q ! 3 -BLKB PROCESS_NAME_SIZ 
17 1 38 TEMP_LOG_DESC: ; holds the log filename of the 
4g 17 109 -BLKL 1 i detached process 
000001F 18 ! a8 -BLKL 1 
SHE 1100 TEMP_LOG_STR: ; holds the actual log filename 
0000002C ahi 1 1 -BLKB FILENAME _LNGTH+F ILE_EXT_LNGTH 
09 ¢ 11 : MBX_LOGNAM_DESC: ; holds the jog'es} nene of a 
00000034 002C 1104 -BCkQ 1 3 mailbox which holds the 
+ ? 1 5 3; parameters to an image 
034 1109 MBX_LOGNAM_STR ; logical name goes here 
0000003D ; : 1198 -BCKB FILENAME _LNGTH 
003D 1110 STRCT_TOP BOT: 3: 1st longword holds sep of new 
00000045 B38 1111 -BLkQ 1 ; structure, 2nd holds bottom 
04 Wie 
0045 111 
0045 1114 


CREATE_PROC_LENGTH = . ; length of this block 
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-SBTTL Local area for TPARSE and Get/Parse Routine 

-PSECT GET_PARSE_LOCAL,ABS ,NOEXE ,NOWRT , PAGE 


: PSECT to define offsets of local variables for the TPARSE routine 
: and for getting 6 a record and parsing shat record. No values are 
; stored here ese are only offsets and the actual values are stored 
: on the stack. 
DAT_PARSE BLK: parameter block for TPARSE 
6 count field Cinitialized to 8) 


4 1116 
45 111 
1118 
1 
HH 
HE 
cr et an Tae ir 
90000028 : $ 1} $ -BLKB TPASK_LENGTHO-8 buffer for rest of block 
024 11 $ RCRD_ERR_DESC: ; holds the syntax error message 
0000002C 00 2 1 9 -BLKQ 1 ; and the invalid record 
6 © 47 § RCRD_ERR_FAO: ; descriptor for input to the 
00000034 + ; 1} Z -BLKQ 1 ; FAO service 
0034 1135 RCRD_ERR_STR: ; error message goes here 
0000013C 0 1 § TBLKB =2*RCRD_SIZE 
13C 1138 TOKEN_ERR_DESC: ; holds the invalid token message 
00000144 136 1122 -BLKQ 1 ; and the token 
Bite 1141 TOKEN_EPR_FAO: 3 Gener tptor for input to the 
0000014C nice 1136 -BLKQ 1 ; FAO service 
014C 1144 TOKEN_ERR_STR: 3 message goes here 
00000254 Bief 118? -BLKB 2*RCRD_SIZE 
00000254 $584 1147 GET_PARSE_LENGTH = . ; length of this block 
0254 1148 


— 
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4 -SBTTL Main Program 
FUNCTIONAL DESCRIPTION: 
This is the main routine of the TSTCNTRL, it will determine what 
one snows recere is and take appropiate action according to what 
e record is. 


CALLING SEQUENCE: 


wr 


None 
INPUT PARAMETERS: 


The Logical names: FILNAM, PARCNT, DELLOG, and REPORT. The ASCII 
data file -=- FILNAM, 


: IMPLICIT INPUTS: 
None 

> OUTPUT PARAMETERS: 
None 

; IMPLICIT OUTPUTS: 
; None 

; COMPLETION CODES: 


The final status of the TSTCNTRL is sent to EXIT_HANDLER by the 
lLongword STATUS. 


; SIDE EFFECTS: 


Leaves a log file called TSTCNTRL.LOG, may leave other log files 
if DELLOG is false. 


OGOOCCCOCOOCOCOOCOOCOCOCOOCOOCOOOOOOOO 


SOOoooooorrnrn) 


Peel ee ml) al al al ah dl A Al ah Ah Ah Ah AL AL AL AL AL AL TAL AL AL AL AL AL AL AL AL AL Ah ak Al 


0000 -PSECT TSTCNTRL,EXE,NOWRT ,PAGE 


paella Pt et et et et et et et et et et et ett et et ts 


-DEFAULT DISPLACEMENT ,WORD 


ee ee ee ee ee ee ee 
PIPIMOM MIMO tt at a a a a nr nt a a an a a a a a a an at an a os a sh hs ss ss ss Ss Ss Ss 


DODO OOOC OOO OOOO OO OW 090009 09 09 O08 SI NI NINSINIS SOP AOPOOOAOO 


AEA 9 ODN NE WIN 9 OD NA E WIN  O OO NO NEW 0 COONAN EW OOOO 


0000 6 »-ENTRY TSTCNTRL,“M<> ; Entry mask 
6D 15B3°CF ODE 3 MOVAL SSERROR, (FP) ; declare an exception handler 
$07 SSETSFM_S ENBFLG = #1 ; Enable system service failure mode 

12 SOCLEXH_S DESBLK = EXIT_DESC ; Declare an exit handler 
i. ; get the facility code for output messages 

OO Te ce 7F 1B PUSHAQ FAC_IN ; descriptor for fac. code 

O18°CR 7F 1F PUSHAQ FAC DESC ; keyword FACILITY_CODE 

00000000 ' GF 2 «FB $3 CALLS #2,G*CLISGET_VALUE ; get the new code 


mM 3 
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. ! ; convert the code to binary 

A PUSHAL FAC_CODE ; binary code goes here 

PUSHAQ ; ascii code number 
CALLS #2,G*OTSSCVT_TI_L 3 convert the number 
2 ; get privileges 
0010'CF O01 10 OF FO 9 INSV #1, #PRVSV_WORLD #1 ,PRIV_MSK ; need worid in order to stop proces 
OO10'CF O01 OS O01 FO r¢ auey #1 #PRVSV-DETACH, #1 ,PRIV_MSK ; set mask for detach privilege 
4 SETPRV_S ENBFLG = #1,- : Get the detached privilege 
9 4? PRVADR = PRIV_MSK 

005 CHK_CNTL_C: 
005 ; look at SYSSCOMMAND and see if it is coming from a terminal. 
005 ; if it is then get the channel number and enable control-c's 
8 : ; to that terminal. 
005 SGETDVIW_S DEVNAM = SYS_COMMAND,=- ; look at SYSS$COMMAND 
0058 EFN = #1,- 3; wait for this event flag 
38 ITMLST = COMMAND_ITM_LST ; get class and name 
3 ; Mow, check the device class and see if it is a terminal 
00000042 8F O0106°CF D1 007 CMPL IN_DEVICE_CLASS ,#DC$_TERM ; is device a terminal? 
mw Bae BNEQ 108 : no, don't enable control-c's 
tA ; device is a terminal, so enable control-c's 
007D SASSIGN_S DEVNAM = IN_DEVICE_DESC,- 3; assign a channel to terminal 
peep CHAN = TTCHAN 
OOBE $Q10W_S CHAN = TTCHAN,- ;_ with this channel, 
O08E FUNC = #IO$_SETMODE!IOSM_CTRLCAST,- ; establish a control-c 
OO8E P1 = CCASTHAND ; handler here. 
OOAF 
OOAF 
OOAF 10$: 
cond 3; get the data filename 
OO86'CF 7F ; PUSHAQ FILNAM_IN ; descriptor for FILNAM 
20° CF 7F PUSHAQ Ay best ; keyword for CLI 
CALLS #2,G*CCISGET_VALUE i; get the filnam 


3; store filename in the FAB and OPEN it 


SFAB_STORE FAB = DATA FILE FAB,- ; the data fab 
FNA = @<DSCSA_POINTER+FILNAM_IN>,- ; address of filename 
FNS = <DSCSW_CENGTH+FILNAM_IN> ; size of filename 


00 0 
QO000000'GF O02 FB 


PEN_FILE: 
3 now open the data file. File may be a PPF viz SYSSINPUT 
SOPEN FAB = DATA_FILE_FAB ; open the data file 

BLBS RO, 108 ; if successful, then continue 


POR SPOPPOPOPONOPOPOPIPIPONONONONONIPONIPONUPIPIPONONIPOPONONOPOPOPO POPPIN IPUROPORGPURORUNUNPUPUNINUND 
DOO OUIMAM UMN BS BB BB BBB WWW WNW NIIWINOPOPONOPONDNONNN 9 2 3 3 OOO 
AIO OOO NAAN EW OOO NAME WN OO ODNAUE WN OOO NAUEWN OOD NOUSWNRODON 


ee a et a a = = = 4s 3 Ss = ts SS) SS Ss ws 2 2 2 2s Ss Ss Ss 9 bs ss 1s 9 1 Ys 


> >A HMMMMMM Vw 


SSS aan ODOOSOOODS> 


16 50 =E8 
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DD 1 
DD 1 e2 ; Te failed, then sone thin wrong with FILNAM 
44 ! 96 ; write error for invalid FILNAM 
O18F'CF 7F DD 1 oe PUSHAQ FILNAM_ERR 3; error message 
00C31134 8F DD Ef : 5 PuSHE STCNTRLS TEXT! STS$K_SEVERE fatal 
! ; fatal error 
00000000'GF 03 FB £3 } rh CALLS #3,G*LIBSSIGNAL z ; write message 
0301 31 oF } r3 BRW END_TCNTRL : and exit 
O9t 1275 10$: 
it : 6 3 connect the data stream 
OOF3 1 4 SCONNECT RAB = DATA_FILE_RAB,- 3 connect the stream 
O16 ! ERR = RMSERR 
102 1281 GET_QUAL: 
B15 } Hf 3; now get the other qualifiers from the CLI 
818 ! ge ; the REPORT format 
OOBE'CF 7F 010 1286 PUSHAQ REPORT_IN ; descriptor for the value 
OOS4'CF 7F 106 1287 PUSHAQ REPORT DESC ; descriptor of keyword for CLI 
OO00COO000'GF 02 FB Hs } $3 CALLS #2,G*CCISGET_VALUE ; get the value : 
aad |B 91 brik : ay CMPB SESE SA. POINTER REPORT 11D ; is report short? 
0117 129 
ae Sh ee 38 BNEQ 10$ 3; no, check again 
04A3'CF 08 CA 119 1294 BICL2 #TCNTRLSM_LONG_REPORT,FLAGS 3; yes, change flag 
18 «O11 pris ! 32 BRB 20$ 3 continue 
0130 1297 10$: 
0U92' DF 91 120 1 4 CMPB @<DSCSA_POINTER+REPORT_IN>,=- ; is report long? 
4C 8F 815¢ 129 #*A/L/ 
) 8156 ! 39 BEQL 20$ 3 yes, change nothing 
0 8 : 8 3 no, so print warning and use default 
01C4'CF OF 1 : 1 87 PUSHAL REPORT_ERR 
1 OD 12C 1305 PUSH #1 
00C31130 8F DD 12— 1 § PUSHL #ITCNTRLS$_TEXT!STSSK_WARNING 
00000000 ' GF 3 «FB 1 “ ! CALLS #3,G*LIBSSIGNAL 
138 (1 3 20$: 
1 4 ! 19 3 get the concurrent process count (PARCNT) 
0096'CF 7F QO13B 1 \¢ PUSHAQ PARCNT_IN ; descriptor for PARCNT 
OO3SE'CF 7F O13F 131 PUSHAQ PARCNT pest ; keyword name for CLI 
00000000'GF 02 FB 133 ! 1% CALLS #2,G*CCISGET_VALUE 3 get the value 
Fe 1 16 3; convert PARCNT string into a number 
44 DF 14A 1 18 PUSHAL TOTAL_PROC_LIMIT ; place for converted number 
96'CF ODF 135 131 PUSHAL PARCNT_IN ; string to be converted 
00000000'GF 02 FB 0152 1320 CALLS #2,G*OTSSCVT_TI_L 3; convert text to longword 
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; see if valid PARCNT 


CMPL TOTAL_PROC_LIMIT,#0 ; is PARCNT <= 0? 

BGTR $ i; no, continue 

PUSHAL ZERO _PARCNT 3; yes, print warning... 
PUSHL #1 


PUSHL STCNTRLS TAs istsen WARNING 
CALLS #3,G*LIBSSIGN 


MOVL #1, TOTAL_PROC_LIMIT 3. « « and use PARCNT = 1 

MOVL TOTAL_PROC_LIMIT,=- : initialize maximum number of 
ACTIVE_PROC_LIMIT 3 active processes 

3; lastly check to see if the temp. log files are to be deleted 

PUSHAQ DELLOG_DESC ; keyword for CLI 

CALLS #1 GCC ISPRESENT ; is the keyword there? 

CMPL #CLIS_NEGATED,RO ; was the value negated? 

BNEQ 40$ 3 no, use default 


BICL2 #TCNTRLSM_DELETE_TEMP_LOG,FLAGS ; yes, change flag 


3; make connection for termination mailbox 


SCREMBX_S — = MBX _C 3: create termination mailbox 
AXMSG = PARI LBOX. SIZE i; message from process 


$010_S CHAN = MBX CHAN 


; do a read to mailbox 
FUNC = #10$ REABVBLK - 


Page F : 


ASTADR = PROC_TERM_AST,- ; on read, goto process termination 


10SB = PROC_T TERN. Tose. 
Pi = TERM 
P2 = PPAICBOX. he 


3; get unit number of mailbox for create process 


SGETCHN_S CHAN = MBX_C ; want unit # of mailbox 
PRIBUF = we HN “DESC 

MOVAL GETCHN B R ; get prorttog 9 addr of getchan 

MOVW DIBSW NONI TeRD) , MBX_UNIT : get the uni 


; initialize the data structure 


PUSHAQ AVAIL_LIST_HEAD 
PUSHAL PROC_INF 

PUSHL RPRCINFO S_PRC_INFO 
PUSHL NUM TS” 

CALLS oe INTT_STRUCT 


3; now get the UIC of the TSTCNTRL program 


the avail. List pointer 
the addr of the he of struct. 
the byte count °° h 

the number of slots we have 
initialize the structure 


e slot size 


: if it is an assignment statement, then go do it 


; otherwise, go directly to the begin message 


09 049B'CF O05 €E1 BBC #CASESV_ASSIGN,CONTROL_CASE,STRT_MSG ; it isn’t assignment, 


] 
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vo45000 Program 8 SEP=1984 U4: 30:08 UETP.SRC CIC ESPHASOO. MAR; 1 a 3) 
10 1 4 SGETJPIW_S ITMLST = gerurt.« ; all we want is the UIC 
19 1379 EFN = # | 
} i ensure that processes we create can access their SYSSINPUT | 
02 D 1 PUSHL #2 ; we'll convert a 2-byte... 
7E OSOE'CF Re 1384 MOVIUL peste bg (SP) ; «+-integer to ASCII. | 
SPE Be RG TE FuBMAY iene ) se oh | 
: oe Us Ng group number of... 
Q00000000'GF 04 FB 4 1 : gAL LLS : «eethe process which runs us 
B 1388 CRELNM_S arts ; VIRNPREDIR, - : force SYSSINPUT mbx name... 
B 1389 OGNAM = oth | i «+-tO appear in 
: ay TTR = LNMITMLST 5 swat group Logical name table 
8 2 ! 35 ; Mow get the quotas and base priority of the parent process 
8 52 1394 SGETJPIW_S ITMLST = QUOTA_LIS,- ; all quotas and priority 
bse } 2 EFN = #1 
0967 Ht GET_DATA_RCRD: 
0267 1399 ; the first two records may be special assignment statements 
0267 Veey 3 get them and find out. 
O49B'CF D4 0267 1386 CLRL CONTROL_CASE ; make sure nothing is set 
107D'CF OO FB 8 $8 eRe CALLS #0,GET_PARSE_SBRTN 3; get and parse the record 
0270 1406 : if it is an ass ignnens statement, then go do it 
8 4 et ; otherwise, go directly to the begin message aad don't get second record 
1D 049B'CF O05 €1 8 70 1409 BBC #CASESV_ASSIGN,CONTROL_CASE,STRT_MSG ; it isn’t assignment, 
oe 1239 3; sO goto start message 
0498 'CF OF o 76 Vel¢ PUSHAL CONTROL_CASE 
OEAO'CF O01 FB 7A 141 CALLS #1,ASSIGN_SBRTN ; perform the assignment 
tr days 
or 1318 ; we had one assignment, see if we have a second one 
107D'CF OO FB 44 1013 CALLS #0,GET_PARSE_SBRTN ; get and parse the record 
4 1420 
4 1421 
tits 
: 1? $ 3; SO goto start message 
0498'CF DF A 14 $ PUSHAL CONTROL_CASE 
OEAO'CF OF FB 1? 3 CALLS #1,ASSIGN_SBRTN : perform the assignment 
93 14 
9 14 9 STRT_MSG: 
2 12 3 Mow, create the permanent log file 
O4A3'CF O000008C BF C8 32 1? BISL2 #TCNTRLSM_SET_LOGNAM,FLAGS ; cannot change the logfile name 
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9C SCREATE FAB = CNTRL_LOG_FAB,- ; make the file 
Ht ERR = RMSERR 
AB SCONNECT RAB = CNTRL_LOG_RAB,=- 3; establish a stream 
a ERR = RMSERR 
¥ ; set the process name of the controlling process 
eA SSETPRN_S PRCNAM = PRC_NAM_DESC ; set default of process name 
C ; now print the starting time descriptor 
O4A3'CF 20 (C8 BISL2 #TCNTRLSM_WRT_MSG,FLAGS ; always print this message 
7E D4 CLRL =(SP) 
OS16'CF ODF PUSHAL PRC_NAM_DESC 
DD PUSHL #2 


PUSHL #TCNTRL$_BEGIND!STS$K_INFO 
CALLS #4,G*LIBSSIGNAL 


; Now set the PARSE bit and start the main case loop 

BISL2 #CASESM_PARSE,CONTROL_CASE ; make sure we do a parse 
MAIN_LOOP: 
; This is the loop which holds all the control for the various 
; subroutines. Control goes to each subroutine depending on which 
; bits in CONTROL_CASE are set. 


; determine if we are to continue with loop. use the following... 
; do while ~TCNTRLSV_EAIT v PROCESS_CNT > 


00C31038 8F 
00000000'GF 04 FB 


0498'CF 00000080 8F C8 


OWONOA ME WIN O OD NAME WIN 0 OD NOAU EW OOO NAUE WI OOONOU 


02 O4A3'CF OB £0 BBS #TCNTRLSV_EXIT,FLAGS,10$ ; is the exit flag set... 
OA 11 BRB 20$ 3; no, so contine 
10$: 
00 OO00'CF 01 CMPL PROCESS_RUNNING ,#0 3. « « is the number of running 
03 14 BGTR 3 processes <= 0? 
OOEO 851 BRw END_MAIN ; yes, get out of loop 
20$: 
; now find out where we are suppose to case to 
; find the first set bit in the case word and then case off of it. 
90 EA FFS #0,- : start Look ing from position zero 
0 #<CASESS_CNTRL_CASE*8>,- : the size is this many bits 
sd CONTROL_ 7 ; this is the base 
A R10 3; and the results goes here 


CASEB =R10,#0,#<CASESK_CNTRL_CASE_SIZE 


1> ; perform case 
30$: 


.WORD ABORT_TCNTRL_BLK 

“WORD TIMER™EXP 

“WORD PROCESS_TERM_BLK 
EOF BLK 


-WO 
«WORD FILE BLK 
«WORD ASSIGN_BLK 
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9€' 031 -WORD CREATE PROC BLK = 30$ 
CA’ «WORD GET_PARSE_BCK - 303 | 
1 HIBER_BLK: | 
1 ; reached here by falling through case with no match 
! ; go into HIBER and sleep. 
! SHIBER_S 
! ; and do next case 
00B8 = =s«51 ! BRW CONTIN_MAIN 3; perform next case 
1 
1 ABORT_TCNTRL_BLK: 
1 ; reached this via an AST setting CASE$V_ABORT 
} 3 begin abnormal abortion of the TSTCNTRE 
4 BY DF 1 PUSHAL CONTROL_CASE : flags for control case statement 
O4A3'CF DF PUSHAL et : flags for TSTCNTRL 
0467'CF O02 FB CALLS #2,ABORT_TCNTRL_SBRTN ; start termination 
: do next case 
O0OA8 31 BRw CONTIN_MAIN ; perform next case 


TIMER_EXP_BLK: 
; reached this via an AST setting CASESV_TIME_EXP 
3 stop currently running processes and continue 


PUSHAL PARSE_FLAGS 


AW 


Bees ee DF flags saying what has been parsed 


OOOCCCOCCOOCOCOCOCOCOOCOCOoO 


DF PUSHAL CONTROL_CASE : flags for control case statement 
O4AS'CF ODF PUSHAL Ne ti : flags for TSTCNTRL 
O4A3'CF O02 FB CALLS #2,TIME_EXP_SBRIN 3 stop processes 


; do next case 
BRW CONTIN_MAIN ; perform next case 


PROCESS_TERM_BLK: 
; reached this via an AST setting CASESV_PROC_TERM 
; handle the terminated process 


PUSHAQ AVAIL_LIST_HEAD 
STOP_BESC 


PUSHAQ START_DESC 

PUSHAL CONTROL_CASE 

PUSHAL FLAGS 

PUSHAL PROCESS RUNNING 
PUSHAQ COMPLETE Q_HEAD 

CALLS #7,PROCESS-TERM_SBRIN 
; and do next case 


BRW CONTIN_MAIN ; perform next case 


0094 +31 


header of available slots 
descriptor of ending sentinel 
descriptor of saptantng sentinel 
flags tor control case statement 
en for TSTCNTRL 

number of processes still running 
header of completed process queue 
handle the terminated process 
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CREATE PROC_BLK: 
; reached this by FILE setting CASESV_CREATE_PROC 
; create the detached process 


PUSHAL PARSE_FLAGS 
PUSHAL TOTAL~PROC_LIMIT 
PUSHAQ CURRERT_LIST_HEAD 
PUSHAQ AVAIL_LTST_HEAD 
PUSHAL CREATE PROC _CASE 
PUSHAL CONTROC_CASE 
PUSHAL FLAGS 

PUSHAL PROCESS RUNNING 


PUSHAL yore. PROC_RUN 

CALLS »CREATE_PROC_SBRIN 
3; and do next case 

BRw CONTIN_MAIN 


{tags from pores routine 

Limit of allowed processes 
head of currently running List 
head of available slots 


> 
rOooOooo 


OOOO Wa Nvwn 


case of type of proc to start 
main case flags 

TSTCNTRL flags 

number of processes running 
number of processes ran so far 
create the process 
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vb4~000 Main Program ore ee=13ke barsei0s Loeb eRcsuespuacopemar;1 2% °58) 
67 1549 EOF_BLK: 
of 1 ; reached this by GET_PARSE setting CASESV_EOF 
f } 3; handle the end-of-file 
OAEO'CF OF ef 1 PUSHAL DATA_FILE_RAB ; start of data file RAB 
| wa DF B 1554 PUSHAL FLAGS ; flags for the TSTCNTRL 
O49B'CF OF of 1555 PUSHAL A igtls'y CASE 3 {tags for control case statement 
O8c3'cF O03 FB 4 } 2$ CALLS #3,€0F SBRIN ; handle end-of-file 
f \ 28 3; and do next case 
oosc «31 4 | 69 BRW CONTIN_MAIN 3; perform next case 
0378 1 96 FILE_BLK: 
7B 156 ; reached this by GET_PARSE or PROC_TERM setting CASESV_FILE 
e 1368 ; handle having a file spec 
QOO8'CF OF 8 78 1296 PUSHAL ACTIVYE_PROC_LIMIT 3 max process active 
OOOO'CF OF 7F 6156 PUSHAL PROCESS RUNNING 3 number processes cusrently active 
O659'CF DF 0383 1568 PUSHAL PARSE_FCAGS ; flags set by GET_PARSE 
O4A3'CF OF Bae 1282 PUSHAL FLAGS ; TSTCNTRL flags 
049B'CF ODF ; B 1 0 PUSHAL CONTROL_CASE ; main case flags 
0910'CF O05 FB Oeae 130) CALLS #5,FILE_SBRTN ; see if we can start the process 
0394 1378 z; and do next case 
0040 =«=+31 Re 130? BRw CONTIN_MAIN ; perform next case 
0397 1399 ASSIGN_BLK: 
B33 1578 3 reached this by GET_PARSE setting CASE$V_ASSIGN 
337 132? ; handle the assignment 
O49B'CF ODF 0 97 1581 PUSHAL CONTROL_CASE ; main case flags 
OEAO'CF O01 FB Hs 13 ¢ CALLS #1,ASSIGN_SBRIN ; do the assignment 
r 13 ¢ 3; and do next case 
0034 = 31 . 13 § BRW CONTIN_MAIN : perform next case 
A 1888 
AS 1589 
AS 1590 
A 
A? 1898 
AB 1594 
: 5 
1397 
1399 
189 
1808 
1604 
1605 
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perform next case 
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- 
CF 1 ; GET_PARSE_BLK: 
* ae ; reached by CASESV_PARSE being set 
} 198 ; get a record and parse it 
107D'CF OO FB se 1819 CALLS #0,GET_PARSE_SBRTN ; parse the record 
D4 161 ; and do next case 
D4 1814 
0000 =—s:«31 ¢ 1818 BRW CONTIN_MAIN ; perform next case 
D? «(161 
D7 1918 CONTIN_MAIN: 
FFOE 31 4 19}? BRW MAIN_LOOP 3 continue loop 
DA 1621 
DA 16 § END_MAIN: 
19 Z ; made it through, time to clean up 
03k 1 5 ; print ending time stamp 
OGAS'CF 20 CB O3A 19 ; BISL2 #TCNTRLSM_WRT_MSG,FLAGS ; always write this message 
00 oD tts 1629 PUSHL #0 
0516'CF DF OE 16 0 PUSHAL PRC_NAM_DESC 
00C31083 8F ODD OS? 16 § PUSHL #TCNTRLS_ENDEDD!STSSK_INFO 
Q0000000'GF 04 FB ED 19 ? CALLS #4,G*LIBSSIGNAL 
Ose 1833 
O3F4 16 $ END_TCNTRL: 
O3F4 16 
O3F4 16 3 ; do clean up 
F 163 
. + 6 SCANEXH_S ; cancel the exit handler 
Sar 1o66 SSETAST_S ENBFLG = #0 3; disable any further AST's 
Bene Ho SSETSFM_S ENBFLG = #0 ; don't report sys service failure 
OcoF 1645 SDASSGN_S CHAN = MBX_CHAN ; deassign the mailbox channel 
218 1966 SDASSGN_S CHAN = TTCRAN ; deassign the terminal channel 
427 1648 SCLOSE FAB = DATA FILE_FAB ; close data file 
4 ¢ 1963 SCLOSE FAB = CNTRC_LOG_FAB ; close the perm log file 
$7 192) SSETPRN_S PRCNAM = PRCNAMDESC 3; reset users process name 
19 § ; now, find out how we are leaving, and set exit accordingly 
50 01 00 rer 18 5 MOVL #SS$_NORMAL ,RO ; assume success 
01 O4A3S'CF OF 1 rs 1 $ BBC #TCNTRLSV_EXIT_HAND,FLAGS,10$ ; did we come from exit handler? 
5 ! 8 RSB i; yes, so go back there 
1 9 108: 
7 0443'°CF 90 1 16 BBC #TCNTRLSV_ABORT ,FLAGS, 208 ; is this an abort condition? 
50 00C3002C BF DO 0458 1662 MOVL #TCNTRL$_ABORT,RO > yes, so signal that 
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~SBTTL Abort TSTCNTRL Subroutine 
; define offsets for parameters 


ABT_FLAGS = 4 
ABT-C_CASE = 8 


++ 
FUNCTIONAL DESCRIPTION: 


This subroutine is called when the TSTCNTRL must be abnormall 
terminated. The reasons for termination may be that a control-C has 
been typed by the user, an unexpected system service or RMS error has 
Secured. or the TSTCNTAL is petne forced to exit by another process. 
This routine is reached by the CASESV_ABORT bit being set. The routine 
terminates all currontsy running hoe and clears all of the case 
flags (except for the PROC_TERM f ag) and sets a flag (TCNTRLS$V_ABORT) 
so that all other subroutines know that the TSTCNTRL is in an abort 
phase. Control then returns to the main case loop where it will stay 
until all of the currently running process have terminated. 


; CALLING SEQUENCE: 
PUSHAL CONTROL_CASE 
PUSHAL FLAGS 
CALLS #2,ABORT_TCNTRL_SBRTIN 
INPUT PARAMETERS: 


ABT_FLAGS(AP) = the address of the TSTCNTRL flags 


80000008 


IMPLICIT OUTPUTS: 


r ABT_C_CASE(AP) = the address of the main control case flags 
: ; IMPLICIT INPUTS: 

4 None. 

"1 ; OUTPUT PARAMETERS: 

4 None. 

4 

4 

4 

4 


The main control case flag will be cleared of everything except for 
CASESV_ PROC TERM. 
The TCRTRLSV_ABORT flag will be set. 
; COMPLETION CODES: 
S$S$_NORMAL 
; SIDE EFFECTS: 
This will cause the ewrrensty running processes to be aborted. 
It will cause the case to only go to PROC_TERM_SBRIN. 


‘oo | 
e | 


ABORT_TCNTRL_SBRIN: | 
WORD “M<R2> 
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| 
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| 


469 1727 
469 17 8 i; clear the case flags of everything except the process termination ' 
289 1780 alebeaes | 
52 FFFFEEFF BF 00 0469 1751 MOVE #4 6B ; set all bits 
5 4 CA 0470 17 : BICLZ case M_PROC_TERM,R2 : clear the proc term bit 
08 BC 52 (CA 0473 17 BICL ,@ABT~C_CASE (APS ; and clear everything but | 
rtf Vy : ; process term bit 
cr if § ; clear the process pending bit so we don't start it 
04 BC 00001000 BF CA oer i § BICL2 #TCNTRLSM_PROC_PEND,@ABT_FLAGS(AP) ; no processes pending to start 
rh to ; print out a message saying that we are going to abort 
eB ad rf 4: 17ts un SFORT NOS ; say we aborting 
00C31130 8F DD 04 : 1744 PUSHL #ITCNTRLS$_TEXT!STSS$K_WARNING ; print it as a warning 
00000000'GF 03 FB ? 10h? CALLS .#3,G*LIBSSIGNAL ; write the message 
$3 124 3; now stop all currently running processes 
a 
130B'CF OO FB 4 1782 CALLS #0,ABORT_PROCESSES ; abort all detached processes 
hf 173) ; we are now in abort phase, so let everyone else know 
04 BC 00000800 BF C8 397 1738 BISL2 #TCNTRLSM_EXIT,@ABT_FLAGS‘AP) ; exit when we can 
50 01 DO QO49F 1755 MOVL #SS$_NORMAL ,RO 3; return success 
are 1728 
04 Q4A2 175 RET 
04A3 1758 


K 4 
TSTCNTRL TEST PACKAGE CONTROL PROGRAM 16-SEP-1984 0: AX/VMS M v04-00 P 7 
v04-000 Fest Expiration Subtroutine -SEP-1984 t Ba: 4 $3 UETP.SRC SESPMASOD™ MAR; 1 _ Hy 


" 760 -SBTTL Timer Expiration Subtroutine 
7A ; define offsets for parameters 
G9000008 Gen HMcCcase = 8 
0000C ry TIM-PRSE = 


++ 
; FUNCTIONAL DESCRIPTION: 


This subroutine "9 reached when the timer (MAXTIME) to prevent processes 
from hanging the TSTCNTRL expires. The expiration of the timer sets a 
cage flag ASESV_TIME_EXP, via the cyaer AST routine (TIME _EXP_AST). 
This routine then "writes a messa age. ts all currently running 
processes, and sets a TSTCNTRL f ee tPeNTRLSV. TIME EXP) to signal other 
routines that the timer has expire 


+ CALLING SEQUENCE: 

: PUSHAL PARSE_FLAGS 

3 PUSHAL CONTROL. CASE 

: PUSHAL BLAGS 

: CALLS #2, TIME_EXP_SBRIN 

: INPUT PARAMETERS: 

: TH. FLAGS (AP) - the address of the TSTCNTRL flags 
5 TIM_C_CASE(AP) = the address of the main control case flags 
; TIM_PRSE(AP) = the address of the parse flags 

: IMPLICIT INPUTS: 

: None. 

: OUTPUT PARAMETERS: 

: None. 

: IMPLICIT OUTPUTS: 


The flag TCNTRLSV_TIME_EXP will be set. 
The flag TCNTRL$V_ABLE_TO_WRAP is cieared. 


; COMPLETION CODES: 

SS$_NORMAL 

; SIDE EFFECTS: 

The a SV_TIME_EXP bit being set will cause the GET_PARSE oe to 
keer Hine " “records until the end of the current segment. sognent 
x8, ee ined to be ended when either the next process to be a 


alone process alge when PARSE V_RUNS “OTHERS = 0), or when 
the vona-at file is reached. 


et et a ae a ss ss Ss SS sd 9 ss 2 YS SS SS 2 2s ss ss ss 2s 2 = 
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7) } 4 : Wrapping of the data file is disabled. 
4A3 1819 ° 
4A3 1 TIME_EXP_SBRTN: 
0000 re ! ~WORD “M<> 
} ; clear out the parse flag which got us here, and turn off wrapping 
08 BC 2 CA Q4A5 1825 BICL #CASESM_TIME_EXP,aTIM_C_CASE(AP) ; don't case back here 
08 BC 00000080 Bf c8 im } § BISL #CASESM-PARSE,aTIM_C_CASE(AP) ; but do parse instead 
04 8C 10 CA re 1 8 BICL2 #TCNTRLSM_ABLE_TO_WRAP,@TIM_FLAGS(AP) ; wrapping no longer allowed 
rt ' , ; now, print out message saying that the timer has expired 
O2A4'CF re 4B} : PUSHAG TIME _OUT_ERR ; time was exceeded 
00C31130 8F DD O4BB 1834 PUSHL #TCNTRLS$_TEXT!STSSK_WARNING 
00000000'GF 03 FB etl } 5 CALLS #3,G*LIBSSIGNAL ; write the message 
ae : : ; set bit saying that timer expired 
04 BC 00004000 BF C8 rt i 33 BISL2 #TCNTRLSM_TIME_EXP,@TIM_FLAGS(AP) ; say that timer expired 
Geb : 4} ; now abort all currently running processes 
130B'CF 00 FB Rep : “8 CALLS #0,ABORT_PROCESSES ; abort all detached processes 
0405 1845 ; now, check to see if the record we just parsed is an End-of-segment. 
0405 1 rf} ; That is, a process to be run by itself, or an EOF. If it is EOS, then 
red ! rh ; goto the proper routine, else goto GET_PARSE. 
0A 04 BC OB €E1 Q4D5 1849 BBC #TCNTRLSV_EXIT, @TIM_FLAGS(AP),10$ ; not time to exit, so see if 
rey : 39 3; process is pending 
ey 1 26 ; we have an end-of-file, so turn off parse 
08 BC 00000080 8F CA O4DA 1854 BICL2 #CASESM_PARSE,@TIM_C_CASE(AP) ; EOF, so turn off parse 
16 11 O4E2 1855 BRB 20$ 3; and leave turning off time expo. 
tke 3§ 10$: 
ty ! 38 ; do we have a process pending to be run? 
19 04 BC OC €E1 ry ' rs BBC #TCNTRLSV_PROC_PEND ,@TIM_FLAGS(AP),30$ ; no proc pending, exit 
rt} ! $¢ ; we have a process pending, is it to be run alone? | 
140C BC 00 €0 tee ! rt: BBS #PARSESV_PROC_RUNS_OTHERS ,@TIM_PRSE(AP),30$8 ; proc not seq, exit 
TEE ' $6 3; we have a process to be run alone, prepare it to run 
08 ec 610 ~=«OC8 arg : re] BISL2 #CASESM_FILE,@TIM_C_CASE(AP) ; try and start process now 
04 BC 00001000 8F CA rth ' 29 BICL2 M#TCNTRLSM_PROC_PEND,@TIM_FLAGS(AP) ; clear pending flag | 
4FA 1872 208: 
4FA 1 4 : End-of-segment, so turn off time expired flag 
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-SBTTL Process Termination Subroutine 


Pwr 


: define offsets for parameters 


9000004 P_CMPLT_Q_HEAD = 4 
008 P-PROCESS-RUN = 8 
900900¢ P-TERM_FLS = 12 
9000001 P“CNTRC_CASE = 18 
00000014 STRT_DESC s 
00000018 STP_BESC = 24 
0000001C P_AUL_LST_HEAD = 28 


++ 
FUNCTIONAL DESCRIPTION: 


This subroutine is utilized whenever a detached process is completed. 
It determines whether or not the detached process succeeded and 

it will print to the console and the log file the proper records frcm 
the process’ temporary log file. 


CALLING SEQUENCE: 


This is called when CA 
PUSHAQ 


-PROC_TERM is set (set by a previous AST). 
avait HEAD 


“ 
m 


: AGS 

3 PUSHAL PROCESS RUNNING 

; PUSHAQ COMPLETE Q_HEAD 

: CALLS #7,PROCESS-TERM_SBRTN 

: INPUT PARAMETERS: 

: P_CMPLT_Q_HEAD(AP) = address of quadword header of the completed process 

3 ueue,. 

; P_PROCESS RUNCAP) - address of a longword holding a count of the currently 
: running processes (including this one). 

: P_CNTRL_CASE(AP) = address of a longword bot ding the CONTROL_CASE flags. 

: P-TERM_FLG(AP) = address of a longword holding the TSTCNTRL Flags. 

- STRT_DESC(AP) = address of a quadword descriptor of the beginning sentinal. 
3 STP_BESC(AP) = address of a quadword gesce iptor of the ending sentinal. 

$ P_AVL_LST_HEAD(AP) = address of a quadword header of the available List. 

: IMPLICIT INPUTS: 

: Termination information off of the completed process queue. 

> OUTPUT PARAMETERS: 

: None 

> IMPLICIT OUTPUTS: 


None 
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: COMPLETION CODES: 
; SS$_NORMAL 
SIDE EFFECTS: 


fay change the flags PRCINFOSV_MBX_CHAN, CASE$V_PROCTERM, 
CASESV_FILE, and TCNTRL$V_PROC_PEND. 


PROCESS_TERM SBRIN: 
.WORD “M<R2,R3,R4,R5,R6,R7,RB,R9,R10,R11> 


; assume we don't have to come back here. 
BICL2 #CASESM_PROC_TERM,@P_CNTRL_CASE(AP) ; 
3 assume we want to parse again 

BISL2 #CASESM_PARSE,@P_CNTRL_CASE(AP) ; assume we parse again 


; however, we don't want to parse if either EXIT v CREATE_PROC v 
; ABORT are set. 


BBS #TCNTRLSV_EXIT,@P_TERM_FLG(AP),3$ ; if exit, then clear parse 
BBS #CASESV_CREATE_PROC,@P_CNTRL_CASE(AP) ,3$ ; 
BBS #TCNTRL$V_ABORT,@P_TERM_FLG(AP) ,3$ ; 
BRB 5$ 


clear flag to here 


if create, clear parse 
if abort, clear parse 
; none were set, parse next 


Ww 
wr 


BICL2 #CASESM_PARSE,@P_CNTRL_CASE(AP) ; don't parse again 


uw 
ad 
- 


: initialize the stack area for local variables 
SUBL2 #PROC_TERM_LENGTH,SP ; allocate space for local storage 


MOVCS #0,#0,#0,#PROC_TERM_LENGTH,(SP) ; clear out local stcrage 
MOVL SP.R10 ; keep pointer to local storage 


; see if any more completed processes are queued up 
; turn off AST's to avoid a race condition 


pseTAST ENBFLG = #0 disable AST's 


assume it was disabled 


CMPL RO #SS$_WASSET t were AST's enabled? 
BNEG 108 : no, so continue 
MOVL #1,R7 3: yes. so save it to be reenabled 


10$: 
; now, remove entry from head of queue and get address of entry 


o..um 
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5B 04 8C SE ; 198? REMQHI @P_CMPLT_Q_HEAD(AP) ,R11 ; this is the address of entry 
? 1999 ; if queue is empty then turn off CASESV_PROC_TERM flag, otherwise 
2 Ef 1338 ; make sure it is set. 
06 «13 226 Bo BEQL 208 ; we just removed the Last entry 
10 BC 04 C8 228 00¢ BISL2 M#CASESM_PROC_TERM,@P_CNTRL_CASE(AP) ; there are still entries on 
55D 0 ; the queue, so come back to this 
55D 04 : routine when done. 
330 $008 208: 
0830 0? ; 3; Now reset AST's 
055d 2009 SSETAST_S ENBFLG = R7 3; set AST to i tat 
056 o16 - previous state 
$208 4 ; change the count of processes running 
08 BC 07 B208 B13 DECL @P_PROCESS_RUN(AP) ; one less process running 
£424 818 3 now see if timer should be canceled 
13. 12 0569 2018 BNEQ 30$ 3 not zero, so just continue 
0568 2019 SCANTIM_S REQIDT = #MAXTIME_ID ;_none running, so cancel timer 
0c BC 00000100 BF CA b258 020 BICL2 “#TCNTRLSM_TIMER_SET,@P_TERM_FLG(AP) ; no timer running, so clear fla 
OS7E 20 : ; ; see if a mailbox was made to pees parameters to an image, if one 
be5E 3 : 3 was made, deassign the channe 
00 €5 OS7E 2026 BBCC #PRCINFOSV_MBX_CHAN,=- ; is there a channel? 
0B 38 AB o388 0 , PRCINFOSL_FLAGS(R115,40$ 
0388 3 3 SDASSGN_S CHAN = PRCINFOSW_MBX_CHAN(R11) ; yes, deassign it 
58E 1 40$: 
O58 6 § ; make the termination file descriptor 
60 3¢ O38 6 4 MOVZWL PRCINFOSW_FILNAM_SIZ2(R11),- 
0225 CA 34 035 TRMNTN_FIC_DESC(R10) : get the size of filename 
4C AB dO 594 $ MOVL PRCINFOSA_F ILNAM(R11),- 
0229 CA 444 } <DSCSA_POINTER+TRMNIN_FIL_DESC>(R10) ; point to filename 
ao8 Be9 ; initialize the descriptor area for the temporary command file 
08 AA DE Q59A $s MOVAL TRMNTN_COM_STR(R10),- . pyt address of string 
04 AA sa 43 <TRMNTR_COM_DESC+DSCSA_POINTER>(R10) ; in pointer area’ 
go t2 ; make the filename for the temporary command file | 
0225 CA 7F OQ59F ¢3 PUSHAQ TRMNTN_FIL_DESC(R10) ; the test filename 
AB F rr rt PUSHAW PRCINFOSW TD NUMB(R11) ; the 1D number 
0467'CF F A 4 PUSHAQ TM E Sc 3; the file extension 
A 7F y AA 50 PUSHAQ TRMNATN_COM BESC(R10) 3; where the new filename goes 
OE35'CF 4 FB OSAC 51 CALLS #4,MAKE_TMP_LOG_NAM ; and make the name 
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: check the timer which watches to see if a passes aborts and 
; then print out an abort message and skip the rest 


BBS #PRCINFOSV_PROC ABORTED 7 ; aborted, so report error 
PRCINFOSL_FLAGSTR11),5$ 
: BRw CHCK_ERROR 3; not abort, continue 


wn 
“ 
bad 


We 


3; process was aborted, so check time and print out a message 
SCANTIM_S REQIDT = #ABRT_TIM_ID 3 cancel the current timer 
; (ow, see if we are to reset the timer 


NO 


B1 5 
Ht 54 ; delete the temporary command log file (if any), use TMP_LOG_RAB 
at 5 SFAB_STORE FAB = DEL_COM_FAB 
581 36 FNA = TRMNTN.COMSTR(R10),- ; the file name is already made 
381 5 FNS = TRMNTN~COM~DESC Rios 
SBF 38 SERASE FAB = DEL_COM_FAB,- 
eof $4 ERR = RMSERR 3 erase the file, 
ate $3 ; initialize descriptor area for temporary log file name 
0s 5 CA. DE af tr MOVAL TRMNTN_LOG_STR(R10),=- gyt t the address in the 
1 CA B20 Ose <TRMNTN LOG  DESC#DSESA.. POINTER>(R1 ) |; pointer area 
202 O87 ; Now make the temporary log file name 
0293 CA 7F 0505 4 PUSHAQ TRMNTN_FIL_DESC(R10, 3; the test file name 
E AB F 0509 70 PUSHAW PRCINFOSW TD_NUMB(R11) 3 the ID number 
O41C'CF e bees 071 PUSHAQ LOG_EXT_D ; the temp log extension 
0220 CA 7F OQ5E0 Oe PUSHAQ TRMNTN 6 DESC(RIO) ; the temp log file 
OE35'CF O04 FB BoES BF CALLS #4,MAKE_TMP_LOG_N ; and make the log name 
OSE9 4h ; now adjust FAB to hold this log filename 
5E9 $79 SFAB_STORE FAB = ; make FAB have log file name 
05E9 2078 FNS = TRAIN SroGe G bESCC (R10), 
Been +44 FNA = TRMNTN_ _LOG_ “STR(R10) 
nace +t ; initialize the descriptor area for the return process name 
024A CA ODE Beee a88 MOVAL ate NAM_STR(R10 put the address in the 
0246 CA SFE 2084 RTR_NAM SOESCSDSESA. POINTER> (R105 pointer area 
a OR 3 now make the return process name 
0225 CA OF 61 938 PUSHAL TRMNTN_FIL_DESC(R10) : the test file name 
OF 33 4 PUSHAL PRCINFOSW_TD_NUMB(R11) : the ID number 
0242 CA OF 8 3 0 PUSHAL RIN NARS DESCTRIO) 3 the return process name 
Opc7"cF O03 FB oC 44 CALLS #3,AMAKE-PROC_NAM 3 and make the process name 
11 38 CHK_ABT -PROC: 
i Be ; see if the process was aborted by the TSTCNTRL. If it was, then 
11 9 
11 509 
13 $099 
1 1 
1 1 
19 3] 
19 54 
19 21 
19 21 
$2 1 
4 21 
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624 2109 | 
10 £0 0624 19 BBS #TCNTRLSV_PROC_NUKED,= ; if SDELPRC has been used 
0c B 6 11 aP_TERM_FCG(APY,- ; to nuke the processes, then 
2 ° i} 208 ; don't reset the timer | 
08 BC DS 06 114 TSTL @P_PROCESS_RUN(AP) ; are we at 0 running processes? 
BA 12 ; V2 BNEQ 108 ; no, so reset the t ner 
00010000 BF CA OQ62E 19 BICL2 #TCNTRLSM_PROC_NUKED,=- i; yes, so clear out process 
oc B 634 118 aP_TERM_FCG(APY ; nuked flag and | 
1 11 06 11 BRB 208 ; don't reset timer | 
g : ? 10$: 
6 1 ¢ SSETIMR_S DAYTIM = PROC_TERM_DELT,- ; reset timer to insure that at 
6 1 ASTADR = NUKE PROC_AST,=- ; least one process terminates 
te ! REQIDT = #AGRT_TIM_ID ; in a reasonable time 
648 21 § 208: 
oc BC 20 CA re } BICL2 #TCNTRLSM_WRT_MSG,@P_TERM_FLG(AP) ; don't print if short report 
O13C'CF 7F 64F 129 PUSHAQ TCNTRL_ABORT_MSG ; say TSTCNTRL aborted this 
4 OD $23 130 PUSHL #1 
00C31130 8F dD 065 131 PUSHL #TCNTRLS_TEXT!STSSK_WARNING 
10 OO9E'CF FO 0658 21 § INSV FAC_CODE ,#STS$V_FAC_NO,- ; set the facility code of the 
oc 0660 21 #STS$S_FA 0,- ; message to be the defined 
6E 661 134 P : facility code 
10 AB” O7F ret) 135 PUSHAQ PRCINFO$Q_TERMTIME(R11) ; time it was aborted 
0242 CA 7F 066 136 PUSHAQ RTN_NAM_DES¢(R10) ; name of the process 
2 DD 084 137 PUSHL #2 
OOC310EO 8F DD 298 138 PUSHL #ICNTRLS_ABENDD!STSSK_WARNING ; give an abort warning 
00000000 ' GF 7 #F8 ofl 17? CALLS #7,G*LIBSSIGNAL ; write message 
O1DD  =so5}1 rt 741 BRW RETURN_BLK 3; and leave 
678 146 
678 2143 CHCK_ERROR: 
67B 2144 ; find out if the process returned successfully or not. If it did, 
ore 123 3; then look for a log file; if it didn't, report the problem first. 
19900009 8F CB 067B 129 BICL3 #STS$M_INHIB_MSG,- ; set the status to print 
53 (08 681 148 CINFOSL_FIRALSTS(R11),R3 
E8 ° : 139 BLBS R3,CHK_LOG_FIL ; BR if there was no error 
687 133 ; it did not complete successfully, determine the problem and 
? 4 : 6 ; print it out 
52. 0242 CA 7E 4 ! : MOVAG RTN_NAM_DESC(R10) ,R2 i get address of process name | 
C 3196 SFAO_S CTRSTR = BAD_STATUS,- | 
68C 21 OUTLEN = FAO BUF,- 
com 8 OUTBUF z BUFFER PTR, 
Sal 510 ate.” | 
6A1 181 SGETMSG_S MSGID = R3,- i get message that goes with | 
Al 16¢ MSGLEN = GETMSG_PTR,- : this status | 
1 216 BUFADR = GETMSG-DESC, - | 
Al 2164 FLAGS = #15,- 
1 165 OUTADR = MSG_BLOCK 


r 
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- 00 & bb eat 18) PUSH ‘ peat 3; send rege a address ... 
- ;_ ee. and the error message 
Go748086 F DD 6¢ 183 PUSHL  #UETP$ COPY LOG_LINE-STSSK_SUCCESS?SiS$k_ WARNING . 
1 gyre ke FO CA 2170 INSV FAC cODE #STS$V-FAC_NO,- 3; set the facility code of the | 
GF Oe 6CF 171 #STSSS_FAC_NO, (SP) ; message to be the defined | 
2D'CF ODF 06D1 176 PUSHAL FAO_BUF 
1 DD 908 17 PUSHL #1 
00C31130 8F ODD 06D 174 PUSHL #TCNTRL$_TEXT!STSSK_WARNING 
Q00000000'GF O07 FB rey 12 CALLS #7,G*LIBSSIGNAL 
6£4 19 CHK_LOG_FIL: 
6E4 A 3 now, check to see if the Log file is there. If it is, then look 
dee 1 ; at the records in it. If it isn't, then leave. 
6E4 2181 SOPEN FAB = TMP_LOG_FAB,- ; open the temp log file 
pers ! ; ERR = RMSERR ~ . ° 6! 
50 Q0000000'°8F 01 Ser 184 CMPL #WRMSS_FNF ,RO ; is there a log file 
03 12 pera } 2 BNEQ PROCESS_CMPLT ; yes, so look at it 
O13F «©6331 O6FC 189 BRW CLEAN_OUT ; no log file, so leave 
O6FF 2188 
O6FF 2189 
O6FF 190 PROCESS_CMPLT: 
O6FF 191 3; the process completed with a log file (may have completed successfully 
bere 136 ; or with error), print out the contents of the logfile 
O6FF 2194 3; connect the data stream to the temporary log file, 
gore 192 ; and pull records out of it 
O6FF 2197 SCONNECT RAB = TMP_LOG_RAB,- ; connect stream to temp log 
OSE 138 ERR = RMSERR ; file 
G70E 2200 ; make the termination filename uppercase, so that we can use it as 
fh 43 4 3; part of the sentinels. 
0225 CA 7F 706 208 PUSHAQ TRMNTN_FIL_DESC(R10) 
0225 CA 7F 71 04 PUSHAQ TRMNTN FIL DESC(R10) 
00000000'GF 02 FB at 3 CALLS #2,G*STRSUPCASE ; change filename to upper case 
arte 4 ; make descriptor for the log file records 
1D AA ODE 71D % MOVAL LOG_RCRD_STR(R10),- ; put address in the 
19 AA u 10 <LOG_RCRD_DESC+DSCSA_POINTER>(R10) ; pointer area 
g i ; make descriptor for temporary buffer for log file records 
0125 CA ODE 7 14 MOVAL TEMP_BUFF_STR(R10),- : = address in the 
0121 CA , : 13 <TEMP_BUFF_DESC+DSCSA_POINTER>(R10) ; pointer area 
729 19 GET_RCRD: 
4 : 8 3; now start getting records out of the temporary log file 
729 0 
4 4 31 ; set up TMP_LOG_RAB to put the newly fetched record in the right place 
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7 3 SRAB_STORE RAB = TMP_LOG_RAB,- ; initialize the temp. log file RAb 
f 4 UBF = LOG-RCRD_STA(R10) : put the record here | 
7 § $GET RAB = TMP_LOG_RAB,=- 
o ERR = RMSERR 
00000000 ' 8F 29 01 74 § CMPL 8 #RMSS_EOF 3 was there an end-of-file? | 
03 12 074 0 BNEQ 108 + no, so continue 
oocD s51 oe 1 BRW TRMNTN_END ; yes, so exit 
74E : 10$: 
Bree 4 ; we have a record, so finish making the descriptor for it and 
ote 5 3 convert it to uppercase 
sad t 3¢ oe 5 MOVZWL <TMP_LOG_RAB+RABS$W_RSZ>,- 
15 AA fe § LOG_RCRD_DESC(R10) 3 put size in descriptor 
15 AA 7F 754 40 PUSHAQ LOG_RCRD_DESC(R10) 
15 AA 7F 757 41 PUSHAQ LOG_RCRD_DESC(R10) 
00000000'GF 02 FB arn stg CALLS #2,G6*STRSUPCASE ; change record to upper case 
ihe te ; look for the beginning sentinel so that we may start copying records 
57 14 AC DO 0761 $8 MOVL STRT_DESC(AP) ,R7 3 temporarily keep the address of 
Ores rt ; the beginning sentinel 
04 87 67 39 765 49 MATCHC DSC$W_LENGTH(R?) ,a@DSCSA_POINTER(R7),- 
15 AA 0769 50 LOG_RCTRD_DESC(R10),- 
1D B78 2) LOG_RCRD_STR(R10) ; is there a begin sentinel? 
BA 12 the 38 BNEQ GET_RCRD : no, so keep looking for one 
ore 55 3; we found the ye sentinel, now see if the filename is there 
Boer 56 ; (to make sure that this record is indeed a sentinel record and not 
ihe 2f 3; simply a data record). 
51 0225 CA 7E oer 59 MOVAQ TRMNTN_FIL_DESC(R10),R1 : get address of term file 
04 81 61 39 0774 2260 MATCHC DSC$W_CENGTH(R1) ,a@DSCSA_POINTER(R1) ,- 
15 AA 778 2261 LOG_RTRD_DESC(R10),- 
1D AA 77A 6¢ LOG_RCRD_STR(R10) ; is filename in same record? 
AB 12 oe o BNEQ GET_RCRD 3 no, so start over again 
77E 2265 COPY_RCRD: 
77E 68 3; we found a begin sentinel, now copy data records to SYSSOUTPUT 
ore 3; and perm log file 
77E 8 $GET RAB = TMP_LOG_RAB,- 3 get next record 
oe , ERR = RMSERR 
50 00000000°8F 01 7a 7? CMPL #RMSS$_EOF ,RO ; was error end-of-file? 
03 12 Oe iS BNEQ 10$ 3 no, so continue 
0082 «51 796 2 BRW TRMNTN_END ; EOF, so clean up and leave 
799 56 108 
799 7 3; we have a record, so finish making the descriptor for it and 
799 7 3 convert it to uppercase 
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MOVZWL <TMP_LOG -peectnon 
LOG_RCRD_-DESC(R 


i since this may + a valid data record, we don't want ff, change 
; the output version of the record to uppercase. We w 


; put size in descriptor 


lL put 
the uppercase record in a temporary buffer to check the sentinel, 
and output the original record. 


MOVL £06 RCRD_DESC(R10),= 3 put the size of buffer in 
EMP_BUFF “DESC(R105- ; descriptor for STRSUPCASE 
PUSHAQ LOG_RCRD_DESC(R10) ; this is the original record 
PUSHAQ } MP_BUFF_DESC(R10) ; and this is the temporary one 
CALLS nGFeTRSOP PCASE 3 change record to upper case 


; now see if we are at the end by looking for and ending sentinel 


MOVL STP_DESC(AP) ,R7 ; temporarly aye ecarese of the 


: ending sentine 


MATCHC DSC$W_LENGTH(R7) ,aDSCSA_POINTER(R7) ,- 

TEMP_BUFF_DESC(R10),- 

TEMP_BUFF_STR(R10) ; is there an ending sentinel? 
BNEQ 20% 3; no, so copy this record 


; there was an ending sentinel, so check for the filename to insure 
; that this is a sentinel record 


MOVAL TRMNTN_FIL_DESC(R10),R1 ; get address of term file 
MATCHC osc LENGTH(R1) aDSCSA _POINTER(R1),- 
TEMP_BUFF_DESC(RIO), 
TEMP BUF F ~oFRCRIO) : is filename in same record? 
BEQL TRMNTN_END ; yes, so exit 
; we have a valid data record, so print it to the proper places 
BSBW INDENT_LOG_RECORD 
; first write it to the console (SYSSOUTPUT) 


: indent it from left margin 


PUSHAL LOG RCRD_DESC(R10) ; this is the record 
PUSHL #*xT0001~ 

PUSHL #ITCNTRLS_TEXT!STSS$K_SUCCESS 

PUSHL #3 


MOVL SP,RO 

SPUTMSG_S MSGVEC = (RO) ; write to SYSSOUTPUT 
; and then write it to the permanent log file 

SRAB_STORE RAB = CNTRL_LOG_RAB,- 


| 
eee ee 


TSTCNTRL 
V04-000 


FF63 

02 

OF OC BC 

oc Bc 820 

10 AB 

0242 CA 

ge 

00C31083 8F 
00000000°GF 04 
1c BC 6B 

oc BC (OD 

1 

OC BC C 

ot 

10 10 

OC eC 00001000 8F 
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E1 


: 
, 
6 
: 


VW EWN 0 ODN UNE WH O OO NOUS Ut OOO 


DPDDPPEDPDPE PAD Pare Be BB 


eo 


$PUT 


BRWw 
TRMNTN_END: 


cies 
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; size to be output 
; where located 


; write to perm file 


3 get next record 


; all through with the temporary log file, so clean up 


SCLOSE 


FAB s = TMP_LOG_FAB,- 
ERR = RMSERR ~ 


; close the temporary log f 


i; now see if we are to delete the temporary log file 


BBC 


#TCNTRLSV_DELETE_TEMP_LOG,- 
aP_TERM_FCG(AP) , CLEAN_OUT 


Page (3) 


ile 


; we are to delete it, so do it 


; don't delete it, so continue 


; delete the temp. log file 


SERASE 4 = TMP _LOG_FAB,- 


CLEAN_OUT: 


RMSERR ~ 


; all done, so print out ending message 


BICL2 


PUSHAL 


CALLS 
RETURN_BLK: 


#TCNTRLSM_WRT_MSG,@P_TERM_FLG 
PRCINFOSQ TERRY JME CRITD 
RIN. NAM_DESC 


#TCNTRLS ENDEDD!STSSK_ INFO 
#4,G*LIBSSIG 


(AP) don't write this to the 
seansele if it is short rep 


; addr of time process ende 
3; the process name 


; now, put the used entry on the available List 


INSQHI 


(R11), @P_AVL_LST_HEAD (AP) 


3 put entry at front of ava 


:; if abort is set, don't touch the case 


BBS 


#TCNTRLSV ABORT. @P_ TERM_FLGCA 
END_PROCESS_ TERM_ SBRTN | don’ 


; now, see if there is a process read 
; is, then set the proper flag to ge 


#TCNTRLSV_PROC mM SBRINT TERM_ hentai ~ im no processes are pending, 
so lea 


BBC 


Blets 


END_PROCESS_TERM_SBRT 


#@CASESM_FILE,@P_CNTRL_CASE (AP) 
#TCNTRLSM_PROC_PEND,@P_TERM 


P),- 
t touch case 


to get started. If there 


it going. 


ort 
d 


il List 


try and start pending process 
"FLGCAP) 4 and clear Bending tlag 
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9 MOVL 
9 
9 RET 


te 


"SSE 


#SS$_NORMAL RO 


P=] 
P=] 


Be 04:38:08 
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; return success 


roe 8, 


K § 
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7 4 3 
7 4 ; Massage a record from the log file of a grecess we've created so that the 
7 405 ; record is uniformly indented from the left margin, even if it contains 
re : 3; embedded carriage returns, Line feeds and tabs. 
76 06 : INDENT_LOG RECORD: 
51 19 AA 0 7? 4 MOL LOG_RCRD_DESC+4(R10),R1 ; R1 and RO are a string desc... 
50 __15 AA C 7A 24 8 MOVZWL LOG-RCRD-DESC(R10) ,RO ; «for the remainder of the record 
7E 50 #9 7E 26 MOVW R =(SP) ; Counts chars as indentation is done 
= .4 1 “iy 108 6RB 30$ ; BR inside loop - indent string's start 
61 50 90 3A ; tig LOCC ace RO, (A) ; Is there a <RET> in rest of string? 
7. 27 4) BEQL 40$ ; Exit loop if not - no more indent 
50 07 9 2414 DECL RO ; Found one. LOCC has us pointing at it 
51 06 B 2415 INCL 1 ; Point past the <RET> 
61 OA 91 D 21$ CMPB a ; Is there a <LINEFEED>? 
04 a6 +44 41 BNEQ 2 ; BR if we need not skip <LINEFEED> 
50 D7 089 $18 DECL RO ; Must pass over <LINEFEED>... 
51 06 Baae rth 208 INCL R1 3 ««-Since they're new Line to printers 
61 O09 91 $896 421 CMPB #9,(R1) ; Is there a tab at start of Line? 
06 af 0899 4 : BNEQ 308 ; BR if not = we can start indenting 
50 OD 89B 24 DECL RO ; Must pass over the tab 
51 D6 O89b 2424 INCL R1 ; More of possing over the tab 
> Ph SH ? 5 308 6RB 20$ ; Inner loop to find multiple tabs 
50 05 OBal 4 : TSTL RO ; If we're at the end of the string... 
19 13 QB8A3 2428 BEQL 40$ 3 oeewWe Can exit the outer loop 
03 ee O8A5 2429 PUSHR #*M<RO,R1> ; Save desc to rest of string 
04 Al 61 50 § O8A7 2430 MOVC RO, (R15 .NBR HDR_BLNKS(R15 ; Indent the rest of the s ring 
20 00 8F 00 2 OBAC 431 MOVCS #0,#0,#4A/ 7,- : Fill indented spaces with blanks 
04 BE 04 1 24 2 #NBR_HDR_BLNKS,@4 (SP) 
03 BA 08B4 $3 POPR #*M<RO,RT> 3; Restore desc to rest of string 
51 04 C0 ba8 434 ADDL #NBR_HOR_BLNKS,R1 ; Point beyond the spaces just inserted 
6—€ 04 AO 088 435 ADDW #NBR_HDR_BLNKS, (SP) ; Count total Length incl. indentation 
«ie 43 ? § aus BRB 10$ ; Loop to see if we need indent again 
15 AA BE 4 bees 438 MOVW (SP)+,LOG_RCRD_DESC(R10) ; Set new record size 
05 08C 439 RSB ; Return with finished record 
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-SBTTL End-of-file Subroutine 

; define offsets for parameters 

CNTRL =CASE = = 4 


OF _FLG 
AT_ “Fie RAB = 12 


p++ 
; FUNCTIONAL DESCRIPTION: 
This subroutine is called whenever an end-of-file is reached in the 
SH CNTRL data file. It determines whether or not to rewind the data 
file and continue processing, or to clean up and exit. 
CALLING SEQUENCE: 
This is called when CASESV_EOF is set by the GET_PARSE_SBRIN. 
PUSHAL DATA_FILE_RAB 
FLAGS 
Why CASE 
CALLS #3,E0F_SBRTN 
; INPUT PARAMETERS: 
gh Ts ge - address of a longword nota on the CONTROL_CASE flags. 
Ear LGTAP) = address of a Longword holding the TSTCNTRL flags. 
DAT “ie “RAB CAP) - address of the start of the RAB of the data file. 
IMPLICIT INPUTS: 
None. 
OUTPUT PARAMETERS: 
None. 
IMPLICIT OUTPUTS: 


The flags CASESV_EOF, TCNTRLS$V_REWOUND, CASESV_PARSE, and 
TCNTRLSV_EXIT may be altered. 


COMPLETION CODES: 
SS$_NORMAL 
; SIDE EFFECTS: 
May rewind the data file. 


Se Se Se Se Se Ge Ge Ge Ge Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Sete Ge Ge Ge Ge Be Ge Ge Ge Se Ge Ge Se Ge Ge Ge Se Se 


EOF _SBRIN: 
«WORD “M<R2,R3> 


; turn off EOF flag so we don’t come back here 
BICL2 #CASESM_EOF,@E_CNTRL_CASE(AP) ; clear EOF flag 


a = 


m 5 
v4.00" End-of-fite subroutine BrREp= 1984 bui20:08 LUETPrSRCSUETPHASCOmaR:1 "29° ($2) v 
; get the address of the RAB 
53 OC AC 00 MOVL DAT_FIL_RAB(AP) ,R3 ; get RAB address 
; oye." dete Tite F is coming from a terminal 
52 3¢ A300 MOVL RABSL_FAB(R3) ,R2 ; get FAB address 


; now, if data file is a terminal, then don't wrap, and time to exit 


26 40 A2 02~—SCi#EO BBS #DEVSV_TRM,FABSL_DEV(R2),10$ ; terminal, so exit 


; see if we are to rewind the data file by usin the following expression 
; sete TCNTRLSV_ABLE_TO_WRAP * TCNTRLSV_ 4 RT_MORE “ TCNTRLSV_FRST_FILE_REACH 
; then rewind data Tile. 
2108 BC O46 €E1 BBC #TCNTRLSV_ABLE_TO_WRAP acer afk Sim? 10$ e is wrap on? 
1¢ 08 BC «(O1Cé€=? BBC #TCNTRLSV-STRT_MORE ,@EOF FLG(AP),10$ ; yes it is, is start more on? 
17 08 BC 00 E1 BBC #TCNTRLSV_ FRST “FILE aeOEAED® aeEOF “FLGCA “0s 3; yes, have we started 


7 at least one process? 
; all the conditions are true, so rewind the data file 


SREWIND ~ = R3,- ; rewind the data file 
ERR = RMSERR 
08 BC 00000400 8F CB BISL2 #TCNTRLSM_REWOUND,@EOF_FLG(AP) ; and set flag saying we rewound 
” Tf BRB END_EOF _SBRTN : and leave 


10$: 
3; we are not to rewind the data file, so therefore it must be 
; time to leave. 


BISL #TCNTRLSM_EXIT,@EOF FLG(AP) 3 time to exit now 


08 BC 00000800 8F C8 
BICL2 #CASESM_PARSE,@E_CNTRL_CASE (AP) : don't oe anymore parsing 


04 BC 00000080 BF CA 


PR OOD NA ME WIN MOOD NAME WIN O OD NOUS WH -OOONOUFSWN—O0Ee co 


BEEN AWNING PINNINPINININY 4 OOS S MOOOODOOOOOCOWONM CO 


POPP PVT TT ~- wo 


90 END_EOF_SBRTN: 
50 01 00 2 MOVL #SS$_NORMAL ,RO 3 success return 
04 090 RET 
91 


TSTCNTRL 
Vv04-000 
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-SBTTL Filename found Subroutine 

: define offsets for parameters 

F_CNTRL_CASE = 4 

F _PARSE_FLGS i 
2 


F- PROC_RUN 
ACT_PROC_LIM 
++ 
FUNCTIONAL DESCRIPTION: 
This subroutine is called when a data record with a valid filename 
is fetched. It determines whether or not the process can be created 


at this time or if we must wait for some currently running processes to 
end before we can create a new one. 


CALLING SEQUENCE: 


This is called when TCNTRLS$V_FILE is set by the GET_PARSE_SBRIN. 
PUSHAL ACTIVE_PROC FialT 


L 
CONTROL_CASE 
CALLS #5,FILE-SBRTN 


INPUT PARAMETERS: 


F_CNTRL_CASE(AP) = address of a longword holding the CONTROL_CASE flags. 

FIL_FLGTAP) = address of a longword holding the TSTCNIRL flags. 

F_PARSE _FLGS(AP) = address of a longword holding the PARSE_FLAGS. 

F-PROC_RUN(AP) = address of a longword holding a count of fhe number 

of processes currently running. 

ACT_PROC_LIM(AP) = address of a longword holding a value of the number 
of processes allowed to be active at the same time. 


IMPLICIT INPUTS: 


None. 


; OUTPUT PARAMETERS: 


None. 


; IMPLICIT OUTPUTS: 


The flags TCNTRLSV FILE, TCNTRLSV PASSE, TCNTRLSV_CREATE PROC, 
and TCNTIRL$V_PROC_PEND may be altéred. 


COMPLETION CODES: 
SS$_NORMAL 


; SIDE EFFECTS: 


Page (8 


wd 


B 6 
TSTCNTRL TEST PACKAGE CONTROL PROGRAM 16-SEP-1984 01:30: AX/VMS Macro V04-00 P 
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91 601 ; None. 
3 6 ie 
91 3 4 FILE_SBRTN: 
0000 4 605 «WORD “M<> 
91 4 “ ; turn off file flag and parse fiag so that we don't go there when 
4 609 ; through here. 
04 BC 10 CA Q91 61 BICL #CASESM_FILE,@F_CNTRL_CASE(AP) ; clear FILE fla 
04 BC 00000080 B&F CA are gt) Bers #CASESM~PARSE , aF_CNTRL_CASE (AP) ; clear GET PARSE flag 
SIE 18 3; now, see if this file is to be run by itselt and if the number of 
Sole oie 3 current processes is zero 
00 «£1 091 218 BBC #PARSESV_PROC_RUNS_OTHERS,=- :; if can't run with others 
OC BC 9 61 @F PARSE FLGSTAP> ,= ; then process must be started 
02 ; 218 SEQUENTIAL_PROC ; by itself 
20.=s«11 9 Y BRB CONCURRENT_PRGC 3; process can run with others 
0925 6 ¢ SEQUENTIAL_PROC: 
0925 26 ; this process does run alone, now see if the number of running 
8 : : 3; processes is zero 
10 CA 0925 26 § BICL2 #TCNTRLSM_ABLE_TO_WRAP,- 3 process runs sequentially, 
08 BC a 4 aF IL_FLG(AP) 3 cannot wrap 
10 BC O00 D1 0929 2629 CMPL #0 ,aF PROC_RUN(AP) 3; are any processes running? 
0B 13 34 ° ? BEQL 10$ : yes, so don't start this one yet 
92F 2632 ; other proceses are currently running, so make this one pending to 
4 : ? 5 3; be run 
08 BC 00001000 BF C8 03 F 2635 BISL2 #TCNTRLSM_PROC_PEND,@FIL_FLG(AP) ; set process pending 
0024 31 0937 26 $ BRw END_FILE_SBRTN ; and leave 
$9 A 3 10$: 
i , 635 j ; MO processes are running, so we can start this one up 
04 BC 00000040 8F cf 93A 2641 BISL2 #CASESM_CREATE_PROC,@F_CNTRL_CASE(AP) ; signal to start this proces 
0019 1 094 ob¢ BRW END_FILE_SBRIN ; and do it 
a Be 
94 $08 CONCURRENT _PROC: 
94 38 ; we couldn't start this process yet because it wasn't running 
94 64 3 by itself. 
94 ot8 3 since this process can run with others, see if the number | 
94 64 ; of currently running processes is less than the maximum number 
Be o29 ; of processes which are allowed to run together. 
hy 636 ; is the number of processes running less than the maximum? | 
14 BC 10 Bc DI 094 4 & CMPL of PROC_RUN(AP) ,@ACT_PROC_LIM(AP) ; see if we can start this one 
A 18 4A 2655 BGEQ os 3 we can't so make it pending 
94C 26 § 
94C 265 


3 we can start this process so signal that | 


———$ —— —y 


= 
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94¢ 
04 BC 00000040 ti 4 Bef 38 BISL2 #CASESM_CREATE_PROC,@F_CNTRL_CASE(AP) ; we can start this one 
8 1 4 969 BRB END_FILE_SBRTN ; so do it 
9 3 906 30$: 
920 287 ; we cannot start this process yet, so make it pending 
08 BC 00001000 8F c8 gee 902 BISL2 #TCNTRLSM_PROC_PEND,@FIL_FLG(AP) ; pending process 
Ree 687 END_FILE_SBRTN: 
50 01 00 Ra ees MOVL #SS$_NORMAL ,RO ; success return 
04 0961 2671 RET 


OO 
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-SBTTL Create Process Subroutine 

; define offsets for parameters 


WWiroTnon— 00 = 
ArvoLcoar 


;++ 
; FUNCTIONAL DESCRIPTION: 


This syereut ine is called when a process is ready to be created; 

e., after the filespec has been parsed out completely and after 

the number tt “active processes is at a proper value. The routine 
GET_PARSE will parse out the filename and will also determine what 
type of file it is to be started (it communicates this by setting 

flag in CREATE PROC CASE). 

This routine will then perform all the actions required to start this 
process and handle any problems caused by the process not activating. 


; CALLING SEQUENCE: 
This routine is ger tee when CASESV_CREATE_PROC is set by FILE_SBRIN 
PUSHAL GS 


OWOOOOOOOOVOOOOOOOWOVOOOOWOOOOOOOOOOOO 
PARP AA AAA AA AA AA AAA AAA AA AAA AAAS 


OOoCOCooooooooooooo 


3 PUSHAQ AVAIL 

; PUSHAL CREATE PROT_CASE 

; PUSHAL CONTRO OC_CASE 

; PUSHAL FLA 

; PUSHAL PROCESS_RUNNING 

; PUSHAL TOTAL PROC_RUN 

; CALLS #9,CREATE_PROC_SBRTN 


; INPUT PARAMETERS: 
TOT_PROC grunt - address of the cumulative number of total processes 


this session 
C_PROC RUNCAP) - address of the number of precesees currently running 


CRT rac St - address of the TSTCNTRL ags 
CCAIR SEC(AP) - address of the CONTROL CASE longword 
ERT EASECAP) = Re he the CREATE_PROC_CASE longword (initialized 
AVL_LST vey s D(AP) = quadword header of the List of available slots 
CURR_LST_H a4. § Apel - geaure header of the List of processes which are 
rren 
C_TOT PRE LIMCAPS =" - +} of the number of allowed detached processes. 
C~PARSE RFCGS CAP) - address of the flags resulting from the parse routine 


SSO SSS SSID DD DDD DEPP A PAA A AAO OOOO Orrrnr 
PRIPMIPPIPINIMININIDD — 9 9 9 MF QDODODODOOOO OOOO WO0O O00 00000009 0909 09 09 0909 INI SII NIN 


OOO NIA MALIN 9 OD NA ME WIN 0 OOO NAME WIN  S OOD NAU EWN 8 OD NA UNE WW SO ODNOAUE WW 


; IMPLICIT INPUTS: 


E 6 | 
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9 7 9 ; The porees file specification is implicit input to this routine. 
4 731 ; This is made by GET_PARSE_SBRIN and is a cont ae string with | 
732 ; descriptors for the various pieces of the specification. herefore, 
9 735; the follow ag descriptors are implicit inputs (again, note that these 
a8 4 ¢ : get set by GET_PARSE_SBRIN): 
9 4 § : FILE_SPEC_DESC = descriptor for the entire file specification | 
9 ; NODE _DESC - descriptor for the node on which the file resides | 
9 7 3 : DEVICE DESC - descriptor for the device designation 
96 739 ; DIRECTORY_DESC = descriptor for the directory of the file 
96 740 ; FILENAME _BESC = descriptor of the actual filename 
9 741 ; TYPE DESC - descriptor of the extension of the file 
9 tg ; VERSTON_DESC = descriptor of the files version number 
96 743 ; PARAM_DESC - descriptor of the parameters associated with the 
96 744 ; file (if there are any) 
96 745 ; COMMENT_DESC = descriptor of the comment field from the data 
ae rg : file (if any) 
96 oe : Other information as needed in order to start detached process. 
096 749 ; C_CODE = to be vic of the detached process 
+ 239 ; MBX-UNIT = the mailbox unit number for the termination mailbox 
962 2752: 
96 38 ; OUTPUT PARAMETERS: 
096 754 ; 
Bee P32 : None 
36 739 t IMPLICIT OUTPUTS: 
096 539 : Implicit outputs include filling in the values of the SCREPRC input 
96 760 ; list. The values which are the same for all processes created are 
96 761 ; the follow wa 
96 oe6 3 PIDADR = points to where the PID of the created process is 
96 763 ; to be placed 
96 764 ; OUTPUT = points to what SYSSOUTPUT is (the temporary log file) 
96 765 ; ERROR = points to what SYSSERROR is (the temporary log file) 
96 £08 : FRCNAM = points to what the process name is 
096 767 ; vIC - points to what the UIC is to be 
096 768 ; MBXUNT = points to the mailbox unit number of the termination 
ae 168 ; mailbox 
36 271 > COMPLETION CODES: 
36 78 ; $S$_NORMAL 
36 209 > SIDE EFFECTS: 
96 58 : May create a detached process. 
BS Stf8 i 
96 780 CREATE_PROC_SBRIN: 
OFFC 4 4 ~ ,WORD “M<R2,R3,R4,R5,R6,R7,RB,RI,RIO,R11> 
| 
964 27 
sed 784 ; set the control flags so that we don't come back here, and that 
964 4 2 3 we go to the parse routine 


F 6 
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10 BC 0000040 8F CA 0964 2787 BICL #CASESM_CREATE_PROC ,@C_CNTRL CASE (AP) don't come back 
8 BC intdaitts et c8 33t iH BISL #CASESM_PARSE , aC _CNERL CASE(AP) ; but do parse instead 6E 
01 cB 0974 27 BISL2 #TCNTRLSM_FRST FILE_REACHED,- ; we've started at least one 
0c BC 4 731 @CRT_PRC_FLG(AP) i process 
4 738 ; if we have a null file, don't do anything. go right to case. 
03 14 BC 4 1 97 795 BBC #CRIPRCSV eit ty @CRT_PRC_CASE(AP), 198 3 if real file, continue 
0134 + 97D £36 BRi CASE_FILE_TYPE : if null, then case x 
3B m8) sos, 
; 239 : ; now initialize the stack area for local storage 
5E 00000045 BF C2 $3 601 SUBL2 #CREATE_PROC_LENGTH,SP ; allocate space for local storage 
6— 0045 8F O00 00 8F 00 2 0387 308 MOVCS #0,#0,#0,#CREATE PROC_LENGTH,(SP) ; clear out local storage 
5B SE 00 099 804 MOVL SP.R14 ; keep pointer to local storage 
B35 2a 
344 607 3; now initialize the descriptors in the local area 
099 4 ; first, the descriptor for the process name 
08 AB. ODE 833 811 MOVAL TEMP_PNAM_STR(R11),- 
04 AR 3444 HE <TEMP_PNAR  DESC+DSESA -POINTER>(R11) ; process name descriptor 
0398 a3 3; then the descriptor for log file of the process 
1F AB DE 099 318 MOVAL TEMP_LOG_STR(R11 
1B AB 0998 B17 <TEMP_LOG_ DESC #DSESA. POINTER>(R11) ; log file name 
1444 $4 3 now, make the process name 
O89C'CF 7F 099D 354 PUSHAQ AM ws: ~DESC 3; the test filename 
04 AC DD Q9Al 28 § PUSHL ry PROC” RUN(AP) ; the ID number 
68 7F O9A4 28 PUSHAQ TEN PNAR DESC(RIT) ; the process name 
Ooc7"cF 0 FB Ne 8 3 CALLS #3,MAKE_PROC_ 3 now, make the process name 
he : § ; make the temporary log file name 
O89C'CF 7F Q9AB 2828 PUSHAQ FILENARE DESC ; the test filename 
4 AC D O9AF 9 PUSHL TOT ~pROC “RUN (AP) ; the ID number 
O041C'CF F 098 9 PUSHAQ LOG, ESC ; the temp log file extension 
AB 7F 098 PUSHAQ PLoS DESC(R11) ; the temp. log file 
OE35'CF O04 FB 1s § CALLS be MARKe. TMP_LOG_NAM 3; and make the log file name 
9BE 4 208: 
Ree 5 3; get a slot off of the available List 
5A 18 BC SE ae $ REMQHI, @AVL_LST_HEAD(AP) ,R10 ; address of free slot 
25 1¢ 45 33 BvC 30$ 3 we got the slot, now fill it in 
9C4 41 : the ove} lable queue is empty, allocate and initialize more slots and 
9C4 4 ; try again 
9C4 4 
| 
| 
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roe 


| 
move the length to the | 


ote te : first allocate more space 
30 AB «O7F «(O9C4 4 PUSHAQ STRCT_TOP_BOT(R11) ; top & bottom of new structure 
00000168 F DD 09C7 29 PUSHL #PRCIRFOSS PRC_INFO 3 byte count of the slot size 
; ¢ DD O9CD 8 PUSHL #NUMB_OF SCOTS ; number of slots we want 
136B'CF FB 444 $3 CALLS #- EXPND-REGION 3 get more space 
4 2) ; now initialize the space we've just acquired 
18 BC 7F 0904 38 PUSHAQ @AVL_LST_HEAD (AP) ; the available List pointer 
3D AB DD 0907 4 PUSHL STRCT_TOP BOT(R11) 3 top of new structure 
00000168 8F DD O9DA 23 PUSHL #PRCIRFOSS PRC_INFO ; byte count of the slot size 
2 DD O9E § PUSHL N T ; number of slots we want 
134C'CF 4 FB 3 : CALLS #4,INTT_STRUCT ; init the structure 
DSi 444 33 ARB 20$ 3; Now try and get a slot again 
9E9 bet 30$: 
495 $¢ ; now fill the new slot with as much info as possible 
9E9 Ha ; first fill in the parsed file information. Move the entire filespec 
434 Be7 3; to the new siot 
O77D°CF 28 O9E9 Re MOVC3S <FILE_ SPEC_DESC+DSC$W_LENGTH>,- ; source length 
0781'DF 9ED 868 a<FILE SPEC_DESC+DSC$A POINTER>,- ; source address 
6C AA i $? PRCINFOST_FILE_SPEC(R10) ; put if in the new slot 
of 4 ; now fill in the sizes and the pointers of the parsed filespec 
55 6C AA DE OF g MOVAL PRCINFOST_FILE_SPEC(R10),R5 ; get the address of the start 
O9F 74 ; «of the file spec 
9F6 75 
+ 6 ; first the overall filespec 
O77D'CF B80 O9F6 ers MOVW <FILE_SPEC_DESC+DSC$W_LENGTH>,- ; move the Length to the 
58 AA ae 4 PRCINFOSW_FILESPEC_S1IZ(R10) ; new slot 
are 1 3; next do the node name 
0884'CF BO O9F 4 MOVW <NODE _DESC+DSCS$W_LENGTH>,- ; move the Length to the 
5A AA AO : PRCINFOSW_NODE_STZ(R10) ; place for the node size 
40 AA 55 00 . § MOVL R5,PRCINFOSA_NODE (R10) ; and put it in the slot 
54 SAAA 3C r 3 MOVZWL PRCINFOSW_NODE_SIZ(R10) ,R4 ; clear upper word of Length 
55 54 CO QAOA 0 ADDL2 R4,R5 ; adjust the address to be 
AOD 91 ; the device 
AOD 35 
. 4 37 z; then the device 
a BY BO OA0D 95 MOV <DEVICE_DESC+DSC$W_LENGTH>,- : 
C AA ait 36 PRCINFOSW_DEVICE_STZ(R10) > place for the device size 
44 AA 55 00 a3 3 MOVL R5,PRCINFOSA_DEVICE(R10) ; and put it in the slot 
54 SC AA 3C QAI? 00 MOVZWL 9 PRCINFOSW_DEVICE_SIZ(R10) ,R4 ; clear upper word of Length 
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? 
AiB 29 
55 54 CO OQAIB 29 ADDL2 R4,R5 ; adjust the address to be 
Al 9 : the directory 
Al 904 | 
~ 2 5 ; then the directory 
0894'CF BO QAI 9 5 MOV <DIRECTORY_DESC+DSC$W_LENGTH>,=- ; move the Length to the 
SE AA A 4 3 PRCINFOSW_BIR_SIZ(R107 ; place for directory size | 
44 AK 55 DO OAS 310 MOVL RS, PRCINFOSA_DEVICE(R10) ; and put it in the slot | 
54 SE AA 3C “ : 318 MOVZWL PRCINFOSW_DIR_SIZ(R10) ,R4 ; clear upper word of Length 
55 54 CO OA2C 2914 ADDL2 R4,R5 ; adjust the address to be the | 
Aer 2915 3; filename 
AF 318 
a : 4} ; then the filename 
O89C'CF B80 OA2F 319 MOVW <FILENAME_DESC+DSC$W_LENGTH>,- ; move the Length to the 
60 AA " 9 PRCINFOSW_FILNAM_SIZTR10) ; place for the filename size 
4C AA 55 00 : 3 4 § MOVL R5,PRCINFOSA_F ILNAM(R10) ; and put it in the slot 
54 60 AA 3C Z ; : MOVZWL 9 PRCINFOSW_FILNAM_SIZ(R10),R4 ; clear upper word of Length 
55 54 CO QA3D 29 § ADDL2 = R4,R5 ; adjust the address to be the 
AS 9 ; file extension 
~ 928 
“ > 4 3; then the file extension 
OBAS'CF BO OA4 931 MOVW <TYPE_DESC+DSC$W_LENGTH>,- ; move the Length to the 
62 AA Date ; § PRCINFOSW_EXTENSTON_S1Z(R10) ; place for the extension size 
50 AA 55 dO vey 4 : MOVL R5,PRCINFOSA_EXTENSION(R10) 3; and put it in the slot 
54 62 AA 3C wae : § MOVZWL PRCINFOSW_EXTENSION_SIZ(R10),R4 ; clear upper word of Length 
55 54 CO QASE 29 8 ADDL2 R4,R5 ; adjust the address to be the 
A51 29 3 version number 
AS1 2940 
ast Be) ; and finally the version number 
OBAC'CF BO 0A51 308 MOVW <VERSION _DESC+DSCS$W_LENGTH>,=- 3 move the Length to the 
64 AA Ne Ree PRCINFO$SQ@_VERSION_STZ(R10) ; place for the version size 
54 AA 55 00 . . 348 MOVL R5,PRCINFOSA_VERSION(R10) ; and put it in the slot 
nS 3e8 3 now, put the ID number in the process infs slot 
3E AA «04 BC BO AS 331 MOVW § @TOT_PROC_RUN(AP) ,PRCINFOSW_ID_NUMB(R10) ; put the !9 number in slo 
A 9 
Ag ? § ; make sure all the flags are cleared 
38 AA D4 - 5 CLRL PRCINFOSL_FLAGS(R10) : clear the flags 
A 9 ; ; before creating a process, delete any left-over log files 
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Ast a8 | 
A SFAB_STORE FAB = TMP_LOG FAB,- ; put in the name of current log fil 
a6 5960 FNA = TEMP-LOG.STR(RI1).- °° , . | 
A 961 FNS = TEMP~LOG-DESC(R115 
A 9 ¢ SERASE FAB = TMP_[COG_FAB,- ; erase the log file 
Ni it ERR = RMSE 
. 1 382 ; set up generic parameter List for SCREPRC 
i 
0% E‘CF of ae BE A81 369 MOVAL PRCINFOSL_PID(R10),PIDADR i; get the PID | 
4 SA‘CF 17 AB E QA87 +43 MOVAQ TEMP_LOG BESC(R11) ,OUTPUT ; and what SYSSOUTPUT is 
Oda ct 68 rE A 36 MOVAQ TEMP-PNAR_DESC(R115 ,PRCNAM ; and the process name 
o4s2°cr Gur ance 20 OA92 $970 MOVL -UIC_CODE, i and the Ule 
0456°CF  0428'CF C “e 44 MOVZWL MBX_UNIT,MBXUNT ; don't forget the mailbox 
ry. 378 3 Now assume that the process will be created successfully and 
ce 44 ; put the slot on the current_running List. 
1¢ BC «6A COD ae 44 INSQTI] (R10),@CURR_LST_HEAD (AP) ; put slot on curr. run. List 
AAG 2978 CASE_FILE_TYPE: | 
AAS 297 3; now, we will start up the process. The GET_PARSE routine has 
AAS 2980 3; determined what type of process we are trying to start up, so 
Daag 383 ; we will case on the results of that. 
00 EA OQAA4 383 FFS #0,- ; case off of flag, start at zero 
20 AA 984 #<CRTPRCSS_CRT_PROC_CASE*8>,- : go this many bits 
14 BC AA? 2985 @CRT_PRC_CASE (AP) ,- ; this holds the flags 
59 m4 289 R9 ; and put the results here 
06 00 59 8 +43 CASEB R9,#0,#<CRIPRCSK_CREAT_CASE_SIZE-1> ; perform case | 
Q00D' OAAE 2989 10$:  .WORD EXE FILE = 10$ 
0015° OAB 990 «WORD EXE_PARM = 10$ 
003A" OAB2 2991 .WORD COM"FILE = 10$ 
0042' QAB4 99 » WORD COM_PARM = 10$ 
OO0A' OAB 99 «WORD NULC_FILE - 10$ 
ABB 5995 
AB 996 NULL_FILE: 
AB 99 ; can come here either by the reper bit being set, or by falling 
998 3 througe the case. If we fall through the case (an error in the 
999 3; the filespec) handle it as if a null file. With a null file, 
; don't do any processing, just exit. This is used mainly to 
3; to run down gurrentty running processes (done by running a null 
: file sequentially). 
| 
010A_—s31 BRW END_CREATE_PROC 


; NO parameters. 
oBco'cF 00 FB 
0035 ‘31 


CALLS #0,CRT_EXE_PRC ; create the process 


4 
: 
EXE_FILE: 
a8 “ 3; reached by the filespec being an executable image, and by having 
1 
i 
18 BRW CHCK_STATUS :; see if finished without error 


COOOCOOCOOOOOOCoOOoO 
SST eee eecsceeeeee 
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; reached by the filespec being an executable image, and by having 
; parameters 


first make a unique logical name to be associated with the physical 
; name of the mailbox 


MOVAL MBX_LOGNAM_STR(R11),=- ; initialize the descriptor 
<MBR_LOGNAM_DESC+DSCSA_POINTER>(R11) 


; and make a unique name (which is the same as the temp log file 
3 name expect is doesn't have an extension). 


PUSHAQ FILENAME_DESC 

PUSHL TOT_PROC-RUN(AP) 
PUSHAQ NILTEXT BESC 

PUSHAQ MBX-LOGNAM_DESC(R11) 
CALLS #4,MAKE_TMP_LOG_NAM 


3; use the name of the file 
; along with the iD number 
3 and no extension 

; and put results here 

; make the logical name 


PUSHL R10 3; process info slot 
PUSHAQ a LOGNAM Bees RYT ; the logical name 


CRT_EXE_PAR create the process 


BRW CHCK_STATUS 


see if finished without error 


COM_FILE: 


; reached by the filespec being a command procedure, having no 
3 parameters 


COM_PARM: 


CALLS #0,CRT_COM_PRC ; create the process 

BRW CHCK_STATUS ; see if finished without error 
; reached by the filespec being a command procedure with parameters 
PUSHL TOT_PROC_RUN(AP) 3; total processes run thus far 
CALLS #1,CRT_COM_PARM 3 create the process 


CHCK_STATUS: 


=OQODNO ALAN 0 OD NAME UID 9 OD NOU EWI 8 COONAN EWN 0 OD NAME WH OOONO 


; we've attempted to create the detached processes, if for some reason 
; we did not succeed, then print out a warning message saying why. 


BLBS RO, INC_COUNT ; Go increment count if no err 


3; there was an error, so print it 
; make the output message 


MOVL RO,RS 3; save the error status 


; since the process did not get started, remove the slot from the 
; current running list... 


0 Page 72 
UETP.SRC SETPHASOO OMAR: 1 . (i) 


REMQTI] @CURR_LST_HEAD(AP) ,R10 3 remove from current running List 


te « » and then return the slot to the available List 
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18 BC 466A OSC INSQHI (R10) ,@AVL_LST_HEAD (AP) ; put at head of available List 


TSTCNTRLE 
v04-000 


7 
7 
74 SFAO_S CTRSTR = NO_CRT PRC,=- ; make a strin uith this message 
75 OUTLEN = FAO_BUF,- 3 pet size of sbufte ’ | 
A 9 TBUF = BUFFER PTR : put output 
+43 4 = aTEMP_ RBNAM, DESC(RI1) s is the process name | 
B1C 8 SGETMSG_S pele = R5,- ; get the message that goes with | 
BIC 0 MSGLEN = GETMSG_PTR,- ; this message 
BIC 1 BUFADR = GETMSG_DESC, 
BIC § FLAGS = #15,- 
OUTADR = MSG_BLOCK 
epadt +4 : ¢ uae “oon ; Push the desc address 
90010002 F DD 0B39 g PUSHL 10902 
wd F DD OBSF PUSHL Fue TP COPY_LOG_LINE=STSS$K_SUCCESS+*STS$K_WARNING 
5 Oo 44 +) 3 PUSHAL oo _BUF ; send the error message 
00¢31130 DD B48 090 PUSHL  #TCNTRLS$_ TEXT! STSSK_WARNING 
00000006 ' GF FB B5 91 CALLS #7,G*LIBSSIGNAL 
i 11 B28 O36 BRB INC STOTAL RUN ; increment total number run | 
BSA 3094 INC =COUNT: 
BSA 95 ; Now, increment the counters that we keep. Increment both the 
in 38 ; count of active processes, and the count of total processes run 
08 BC D6 085A 43 INCL @C_PROC_RUN(AP) 3 one more process running 
4 : ? ; print the begin time stamp for detached process 
OC BC 20 ca 085d 31 ; BICL2 STCNTRLSH_URT_MSG,@CRT_PRC_FLG(AP) | i rite only if long 
43 D4 61 31 CLRL -(SP ; set up for begin time stamp 
OF 6 104 PUSHAL TEMP. PNAM_DESC(R11) 
03 DD 6 105 PUSHL & 
00€31038 DD 6 1 § PUSHL #TCNTRLS 1) + dima INFO 
09000000 ' GF FB $24 } CALLS #4,G*LIBSSIG 
B74 109 sprint out the comments? 
Oc BC 96 —1 B74 111 BBC #TCNTRLSV_PRNT_COMMENTS ,@CRT_PRC gf Lt - 
1 44} 16 INC_TOTAL"R comments wanted 
oc BC 20 CA 37 11 BICL2 #TCRIRLSM-WRT _MSG,aCRT_PRC _FLG(AP) 3 ine only if long 
Decors Bo Sat HIS fu PENT DESC 
0¢31133 i DD 08 3 116 PUSHL #TCNTRLS TEXT STSSK_ INFO | 
00090000 ' GF 3 FB OE 1] CALLS #3,G*LIBSSIGNA 3 print comment 
115 INC = TOTAL _RUN: 
; 1 y this is the number of total processes run. If there was an error 
: 1 ; BA trying to start up the detached process we wiht only increment 
1 : ; this value. This is so that the TSTCNTRL w LC stop in some finite 
+4 ! ? ; amount of time, even though no processes can be started. | 
04 BC 06 89 135 INCL  @TOT_PROC_RUN(AP) ; and one more to the totai | 
B9 1 5 ; if the process we just started was to be run alone, then don't | 
BY 128 j parse anything until it stops | 
| 


eee —— 
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9 1 
24 BC EO 533 1 6 BBS #PARSESV_PROC_RUNS_OTHERS ,@C_PARSE_FLGS(AP),- ; if runs with 
97 31 ; Others, then continue 
10 BC 00000080 BF CA 4 } § BICL2 #CASESM_PARSE,@C_CNTRL_CASE(AP) ; otherwise, don't parse until done | 
A 134 128: 
BA 135 ; now see if we should start up more processes, or if the one just 
. ! § ; started was our last one. 
20 BC 04 BC D1 A 1 8 CMPL @TOT_PROC_RUN(AP) ,@C_TOT_PRC_LIM(AP) ; have we reached our Limit? 
1€ 19 oA 17 BLSS END_CREATE_PROC 3 no, start more up 
A? 12} 3; we have started the requested number of processes, so don't start 
4 146 3 any more 
OC BC 02 CA rv Vee BICL2 #TCNTRLSM_STRT_MORE,@CRT_PRC_FLG(AP) ; don't start any more 
AB 138 ; now see if it is time to exit (check “STRT_MORE * ABLE_TO_WRAP “ 
< 12 3 REWOUND) 
Oc BC 04 —1 AB 109 BBC #TCNTRLSV_ABLE_TO_WRAP,@CRT_PRC_FLG(AP),=- ; have we been able 
15 BeAr 139 END_CREATE_PROC ; to wrap around? 
Oc BC OA €1 rtd 13 BBC #TCNTRLSV_REWOUND,@CRT_PRC_FLG(AP),= ; has the data file 
10 pees 13? END_CREATE_PROC ; been rewound? 
Os 138 ; if the above expression is true. then we are to exit now! 
Oc BC 00000800 8F c8 5 138 BISL #TCNTRLSM_EXIT,@CRT_PRC_FLG(AP) ; exit the TSTCNTRL 
10 BC 00000080 8F CA ; 138 BICL #CASESM_PARSE ,@C_CNTRL_CASE(AP) ; don't parse any more 
: 199 END_CREATE_PROC: 
50 01 400 Ce 196 MOVL #SS$_NORMAL ,RO i; return completion code 
04 3} 164 RET 
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a9 166 #5 -SBTTL Create image procedure 
Bt? 3! 8 : FUNCTIONAL DESCRIPTION: 
Bc9 3170: This routine is called when a executable image is to be run as a 
BC9 3171; detached process. The routine is started by running the image as 
+43} 106 : a detached process. 
BC? 17 ; CALLING SEQUENCE: 
BC 1% : CALLS #0,CRT_EXE_PRC 
BC 178 : INPUT PARAMETERS: 
C9 3179 ; 
at tn) 
dBc 18¢ > IMPLICIT INPUTS: 
OBC9 3184 : File specification information from GET_PARSE: 
pate : $3 FILE_SPEC_DESC = descriptor of the entire file specification 
0BC9 18? : OUTPUT PARAMETERS: 
0OBC9 3188 ; 
gs gE tene 
0BC9 3191 : IMPLICIT OUTPUTS: 
0BC9 1395 3 
OBCo 819% _— 
OB¢9 195 : COMPLETION CODES: 
OBC9 199 : SS$_NORMAL 
pet? 133 : Any completion code which may be produced by S$CREPRC 
oB¢9 aH : SIDE EFFECTS: 
494 08 : A detached process may be created 
9 4° 
C9 O05 CRT_EXE_PRC: 
0000 34 09 WORD “M<> 
+4 8 3 set up generic parameters for executable images 
0436'CF 00 00 CB {4 MOVL #0, INPUT ; there is no input for an image 
O45A°CF 00 O00 . 1 MOVL #0,STSFLG ; clear the status flag 
: 18 3 put the name of the image in the parameter List 
0432°CF O77D'CF 7E 2 1? MOVAQ FILE_SPEC_DESC, IMAGE 3; run the actual image 
4) 1H 3; and create the process 
tS 13 SCREPRC_G CREPRC_LIS ; create the process 
E $4 RET 3; return with status in RO 
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mage procedure with parameters “-SEP-19 


3 


SN NNN AAA AA AAA AMM E BRE RRR REE 


WO NAN ES WIN OOD NAN WIN 9 ODNOAUE WIN @ O OOD NOAM EWN 0 OD NOU EW OOODNOAUS 
. . . . e@e - . . . tee 


C 


-SBTTL Create image procedure with parameters 
; define offsets for parameters 


LNAM_DESC = 4 
SLOT“TOP = 8 


p++ 
; FUNCTIONAL DESCRIPTION: 


This routine is called when a executable image is to be run as a 
detached process. The poremeters are passed by ret gy a mailbox 

with the gene name as the process name (thereby making the name unique) 
and defining SYSSINPUT of the new image to be that mailbox. 

a detached process. 


; CALLING SEQUENCE: 


PUSHAL PROC_INFO. SLOT 
PUSHAG MBX COGNAR_DESC 
CALLS #2,CRT_EXE-PARM 


; INPUT PARAMETERS: 


LNAM_DESC(AP) = the address of the logical name to be associated with 
the mailbox holding the parameters 

SLOT_TOP(AP) = the address of the process info slot being used for 
this process 


; IMPLICIT INPUTS: 


File oper ti ication information from GET_PARSE: 
FILE_SPEC_DESC = descriptor of the entire file specification 
PARM_DESC - descriptor of the parameters to be passed to the image. 


; OUTPUT PARAMETERS: 


None. 


; IMPLICIT OUTPUTS: 


None 


; COMPLETION CODES: 


SS$_NORMAL 
Any completion code which may be produced by S$CREPRC 


; SIDE EFFECTS: 


A temporary mailbox will be created 
A detached process may be created 


RT_EXE_PARM: 
«WORD “M<R2> 


; get the process info slot address 


UETPOSRCIUETPNASOOOMAR;1  o9° (58) 


a 


j 
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52 08 AC DD MOVL SLOT_TOP(AP) ,R2 


; set up generic parameters for executable images 
MOVL #0,STSFLG ; clear the status flag 
3; create the mailbox for the parameters 
SCREMBX_S CHAN = PRCINFOSW_MBX_CHAN(R2),- ; put the channel number 
- ; in the process info slot 
BUFQUO = <PARAM DESC+DSCS$W_LENGTH>,- ; large as param List 
LOGNAM = @LNAM_DESC (AP) 3 name is the logical name 
3 Say that we are holding a channel number 
BISL2 #PRCINFOSM_MBX_CHAN,PRCINFCSL_FLAGS(R2) ; we're holding a mailbox ch 
3; now, write the parameter List to the mailbox 
$Q10W_S CHAN = PRCINFOSW_MBX_CHAN(R2),- ; write to mailbox we just made 
FUNC = #10$_WRITEVBLR!IOSM_NOW,- ; do the write now 
P1 = @<PARAM_DESC+DSCSA POINTER>,- 3; the parameter string 
P2 = <PARAM_BESC+DSC$w_CENGTH> ; size of parameter List 


3; put the mailbox name as SYSSINPUT of the new image 


O45A°CF 00 DO 


38 A2 «(01-s«CCB’ 


0436'CF 04 AC DO MOVL LNAM_DESC(AP) , INPUT ; input is the mailbox 
3; now give the image we want to run 
0432°CF O77D'CF 7E MOVAQ FILE_SPEC_DESC,IMAGE ; run the actual image 
; and create the process 
SCREPRC_G CREPRC_LIS ; create the process 


POOAOAOOOAOOOOOOOOOOOOOOCOCCBWWWWVIVIVIwOwVOVOwow 


ASOoUcCVTVTAOonoocommmmmmmn > > \ bP SS SS VINO OOOWO 
(QOD DOOCOOCOCOCOOOOVOOO OO OWDWOWOWoooocn§9c 


NOME WN (OOO NOUS WN 0 OD NOU EWN OOONOUE Wit" 


: 
; 
; 


WIWANAAWI AANA III nononononononononononononononononononun 


COOCOOCOCOCOCOCOOCOCOOCOOCOOOOCOOOCOOOOOOOOoO 


04 RET 3 return with status in RO 
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-SBTTL Create command procedure 
:; define offsets for parameters 


FUNCTIONAL DESCRIPTION: 
This routine is called when a command procedure is to be run as a 
detached process. The routine is started by VMS's LOGINOUT with 
the filespec as the input file. 

CALLING SEQUENCE: 
CALLS #0,CRT_COM_PRC 

INPUT PARAMETERS: 
None 

IMPLICIT INPUTS: 


File specifica 
FILE_SPEC_DESC 


OUTPUT PARAMETERS: 
None. 

IMPLICIT OUTPUTS: 
None 

COMPLETION CODES: 


SS$_NORMAL 
Any completion code which may be produced by $CREPRC 


SIDE EFFECTS: 
A detached process may be created 


tion information from ed Past 


descriptor of the entire 6 specification 


Se Se Ge Ge Ge Ge Se Se Ge Ge Ge Ge Ge Ge Se Ge Se Ge Ge Ge Ge Se Ge Ge Se Se Se Se Sete Ge Se Ge Ge Ge 


: 
: 
: 
| 


CRT_COM_PRC: 
WORD “M<> 


3 set up generic parameters for command file 
MOVAQ COM_IMAGE, IMAGE : run under LOGINOUT 


CLRL STSFLG ; re-init status flag 
BISL2 #PRCSM_LOGIN,STSFLG ; bypass the UAF 


; put the name of the procedure in the parameter List 
MOVAQ FILE_SPEC_DESC,INPUT ; the procedure is the input 
3; and create the process 


0000 


PDAAA ARMA AAAI EY BS EB BB AANA AAAI NIIP 


O432°CF O473°CF 7E 


45A°CF D4 
O45A°CF 00000040 8F C8 


0436°CF O77D°CF 7E 


PO;OOOO88i8wO8O8qO8wOOOsoOoqd29dOOODOODOOOOOOOOAAOOAOODOOOAIOIOAIOOOOOOOOOOOOOOAOOOH 
COUN E BRERA RARE LAER REPRE 
FROVTCCSTROOO0 0 ON NNN NAAN NNN NNANANNANANANANNNINININANANANVNNNNNENINNNNNNNNNINS 


Do 
BRAS SSS FERS SONS AFG OS O00 NON Gt 2 OOOO SOU DOD NOUN UMD 


CGOOSOCOOOOCOCOOCOCOOCOCOCCOOOOOOOOOOOOOCOOCOCOOOOOoCOoO 


ANANA WIAA AANWIWI 


NNN YNOO 


nay 
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C64 7 
ie i SCREPRC_G CREPRC_LIS 3; create the process 
04 OC6D 8 RET ; return with status in RO 


T$ 
vO 


et 
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: 1 -SBTTL Create command procedure with parameters 
¢ ; define offsets for parameters 
00000004 0Cé6 5 TOT_PROC = 4 
Hy 
$43 : FUNCTIONAL DESCRIPTION: 
C6E § : This routine is called when a command procedure is to be run as a 
C6E 0; detached process, and that procedure has parameters with it. The 
C6E 91 ; routine passes the parameters by creating a one Line command 
oe 3 3 procedure (which has a unique one filename) which simply starts up 
eee 7 : the original command procedure along with the parameters. 
COE 95 ; CALLING SEQUENCE: 
COE i : PUSHAL TOT_PROC_RUN 
C6E 38 3 CALLS #1,CRT_COM_PARM 
OC6E 99 ; 
He) r+ : INPUT PARAMETERS: 
OC6E 34 § : TOT_PROC(AP) = address of the cumulative number of total processes 
OC6E 3405 ; run this session. 
OC6E 3404 ; 
Ree red : IMPLICIT INPUTS: 
OC6E 607 : File specification information from GET_PARSE. Including -- : 
OC6E 3408 ; FILE SPEC_DESC = descriptor of fhe entire file specification 
OC6E 3409 ; FILENAME _BESC = descriptor of the actual filename 
03 aif : PARAM_DESC - descriptor of the parameter string 
OCGE 3418 > OUTPUT PARAMETERS: 
ee 
: one. 
OC6E 3415 ; 
C6E 3416 ; IMPLICIT OUTPUTS: 
cae rs 
: one. 
C6E 419 3 
ce ? Y ; COMPLETION CODES: 
C6E 34 : : SS$_NORMAL 
cee ? i 3 any completion which may be produced by $CREPRC 
cee 4 5 : SIDE EFFECTS: 
C6E 34 5 : Makes a temporary command file (which is to be deleted by PROC_TERM). 
coe ? 3 3 May create a detached process. 
C6E 3430 CRT_COM_PARM: 
OFFC cg r 1 «WORD “M<R2,R3,R4,R5,R6,R7,R8,RI,R10,R11> 
ce r 5 ; create a detached process for command file with parameters 
44 ? 5 ; initialize the stack area for local storage 
5E 0000011D 8F C2 OC? 4 $ SUBL2 #COM_PARM_LENGTH,SP ; allocate space for local storage 


= 


TSTCNTRL 
v04-000 
6— 0110 8F 00 00 gr 90 

B E 


O432°CF  0473'CF 


ee 
O45A'CF 00000040 8F 


08 AB 
04 AB 


O89C'CF 


AC 
0467'CF 
OESS'CF 04 


57 
1D AB 
19 AB 


1D AB47 $5 
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7E 
D4 


D4 


90 
B6 


90 
B6 
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445 
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PEANUT 
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MOVCS #0,#0,#0,#COM_PARM_LENGTH,(SP) ; gieor oyt local storage 
MOVL  SP.RI1 ; keep pointer to local storage 


; first set up generic parameters for command file 
MOVAQ COM_IMAGE, IMAGE 3; run under LOGINOUT 


CLRL sisris ; re-init status flag 
BISL2 #PRCSM_LOGIN,STSFLG 3; bypass the UAF 


; since we must pass parameters, we will make a command file which 

: calls the command file we want to start and passes the arenetere 

: along to it. It will also capture the exit status of the command 

; file we want to start and will pass that status back to the TSTCNTRL. 
; The file that we make will look Like: 

3 $afilespec - 

3 Sparameter_Llist 

; status = $status 

3 $ exit status 


; initialize descriptor for the temporary command filename 


MOVAL TEMP _COM_STR(R11 put the address in the 
<TEMP_COR_ DESC #DSESA. POINTERD(RIA)> ; pointer area 


; make the filename for the temporary command file 


PUSHAQ FILENAME DESC 


; the test filename 
PUSHL TOT_PROCTAP) 


; the ID number 
3; the file extension 
3; where the new filename goes 
; and make the name 
up a the eae to handle .COM files td perengters by using 

s COMM NT_DESC, by putting a $a at the beg! nning of the filespec 

and concatenating a hyphen and a blank to the end of file spec 
; set up an index to use to point to various pieces in the new record 
CLRL R7 ; index into new record 
3; then initialize the desciptor for the indirect file spec 


MOVAL COM_LINE_STR(R11 put the address in the 
<COM_LINE SOESCDSESA. POINTERD(RIA)> : pointer area 


3; now, move ‘‘$a"’ into the string 


MOVB #*A/$/,COM_LINE_STR(R11)CR7) : put $ in front 
INCW R7 r leks the index 


MOVB #*A/a/,COM_LINE_STR(R11)CR7) ; put @ in front of spec 
INCW R7 ; update the index 


3 now, put the complete filespec in 
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Create command procedure with parameter 


RSZ = COM~EXIf_DESC e exit from the command 
RBF = @<COM_EXTT “DESC #DSCSA_. POINTERS : procedure 


$PuT RAB = COM RAB,- ; put that record 
ERR = RMSERR 


O77D'CF 28 OCC& 3495 MOVC3 <FILE SPEC CSW >,~- ; the size of the filespec 
0781 ‘DF C8 $496 a<FILE SPEC DSCSR_POINTER>,~ take it from here ! 
1D AB47 tte 2 COM_LINE_STR i and put it here 
57 O77D'CF Ad $5 639 ADDW2 <FILE_SPEC_DESC+DSC$W_LENGTH>,R7 ; update the index 
$2 : 1 ; and finally put the "' -"' on the end 
1D AB47 ¢9 90 CD 3 : MOVB #*A/ /,COM_LINE_STR(R11)CR7) ; add blank to the end 
B6 te : : INCW R7 ; update the index 
1D ABS7 0 90 OCDA 306 MOVB #*A/=/,COM_LINE_STR(R11)CR7) ; add continuation character 
B6 cor 2 INCW R7 3; update the index (and the size) 
3a SF eet 509 MOVZWL R7,<COM_LINE_DESC+DSCS$W_LENGTH>(R11) ; put the size in the desc 
bees 511 ; now create the temporary command file, and write the proper 
pce? 216 3; records into it. 
bees 514 SFAB_STORE FAB = COM_FAB,- ; point to temporary command file 
OCES 3515 FNA = TEMP_COM_STR(R11),- ; the filename 
ced 316 FNS = TEMP~COM~DESC(R115 ; the size 
ocr 518 SCREATE FAB = COM _FAB,- 3 now make the file 
ace ah ERR = RMSERR 
0D0 521 SCONNECT RAB = COM_RAB,- 3 connect the stream 
4 : 3 ERR = RMSERR 
0D11 3524 SRAB_STORE RAB = COM_RAB,- ; point to the filespec which we 
0011 3525 RSZ = COMTLINE_DESC(R11),- : really want to use 
ae : § RBF = COM- LINE-STR(R11) 
Od20 35 8 $PUT RAB = COM_RAB,- ; write that record 
= : i ERR = RMSERR 
OD2F 3531 SRAB_STORE RAB = COM_RAB,- : point to the parameter List 
OD2F 35 ; RSZ2 = PARAM DESC associated with the above 
Oper 3 ; RBF = OcPAREN. DESC#DSCSA. POINTER>: command procedure 
gp4o 535 $PUT RAB = COM _RAB,- ; write that record 
ae é § ERR = RMSERR 
D4F : 8 SRAB_STORE RAB = COM_RAB,- : eine to the record holding 
D4F RSZ = COM“STAT_DESC to save the final status of 
4F a79 RBF = @<COM_STAT “DESC #DSCSA_. POINTERS: ; the command procedure 
$9 r $PUT RAB = COM RAB,- 3; put that record 
rt ERR = RMSERR 
t2 SRAB_STORE RAB = COM_RAB,- : ppine to the record hoiding 
‘ 
: 


CSOSOOOODOOOOOSCO 
ScoCCUCUCUUUCNU 
DODOIA A AAA AO 
DOOM AAT 
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LS SSS 


4H 7 
TEST PACKAGE CONTROL PROGRAM 197-360-1386 9) 30:08 AX/VMS Macro V04- 
Create command procedure with parameters 5-SEP-1984 04:26: UETP.SRCJUETPHASOO.MAR; 1 


SCLOSE FAB = COM FAB,- ; close the file 
ERR = RMSERR 


; we now have our indirect procedure to start up the want command 
i; procedure and pass parameters to it 


; now Let the input of LOGINOUT be the file we just made 


MOVAQ TEMP_COM_DESC(R11), INPUT ; input is temp command file 

; and finally start up the procedure 

SCREPRC_G CREPRC_LIS i « « « and create the process 
MOVL RO,RS ; save the completion status 


; see if create process worked. If it didn’t, then delete the 
; temporary command procedure; otherwise, the process termination 
$ routine will delete it. 


CMPL #SS$_NORMAL ,R5 ; did the process get created 


BEQL END_CRT_COM_PARM 


SERASE FAB = COM FAB,- 
ERR = RMSERR 3 command procedure 


yes, so leave 


ec. 


END_CRT_COM_PARM: 


WR 9 OD NOA MNF WN 0 OD NO NEW 0 ODNOUE UT 


PVP PUY PVIV IV LVSVSU SUSU SVSUSUSISVSISISIOS 
00090909 SI NINN NSN NSO PAO OA AOO 


MOVL R5,R0 
RET 3; return with status in RO 


replace the status code 


no, so delete the temporary 


Ch 
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Create Process-name P=1984 

5 -SBTTL Create Process-name 

; define offsets for parameters 
ty lt NAME = 4 

“tester _FILENAME = = 42 


Buse 


CP_ 

cP 

CP. 

he 
; FUNCTIONAL DESCRIPTION: 

This subroutine is called to create the unique process name before the 
creation of a detached process. It does this by taki ~ A the pusenene 
and concatenating an ID number which is generated by the TSTCNTRL 
Though the filenames may be repeated, the ID number is ein 

CALLING SEQUENCE: 
This routine is 
PUSHA 


v 

Cc 

“” 

=x 

> 

rr 

L md 
Wwa2omMo 


INPUT PARAMETERS: 
. PROCESS NAME(AP) = address of descriptor to hold process name 
P-ID_NUMBER(AP) = address of longword holding ID number 
CP_TEST_FILENAME(AP) = address of descriptor holding filename (without exten 
IMPLICIT INPUTS: 
None. 
OUTPUT PARAMETERS: 


The process name (@CP_PROCESS_NAME(AP)). 
Completion code in RO? 


IMPLICIT OUTPUTS: 

None. 
COMPLETION CODES: 

SS$_NORMAL, OTSS_OUTCONERR 
SIDE EFFECTS: 

None. 


Sete Se Ge Ge Ge Ge Ge Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Se Ge Ge Ge Se Ge Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge 


MAKE _PROC_NAM: 
-QORD “M<R2,R3,R4,R5,R6,R7,RB,RI,RI0,R11> 


: first pad with leading blanks (if needed) 


OFFC 


SVVCVCVCVTCSCVCVCOVVOOVOUSCVUOVUOUVUVTOVCTVTVCTVCVCOVTOCCVTVCOVTVCTVTVCVCVTCCCVVVTCc0Cc0_C0C0C00€8 
POOVOVOOBVOPVDBOVDBOBVOVOIVDBOBOVOVOODIOOOPiOVOOOOOOAOOAOAOAOOOOOAOOAOOAAAMAAOOOOOAOAAIA 
DOD Qa GO DODDS 


=O ODN NE AIN 0 OOD NIA NEW OS OO NIA UNE WW 0 OD NOAM EWI 0 OD NO NEW O OOO 


COOCOCOCOOOCOOCOOCOOOO OOOO OOSOOOOSOOOOOCOOOCOOOOCOOOOOOoOO 
BP AANAAIAAIAIAIAI RR PIPINPIPONIPIIPINDDN 2 2 OO SS MDOOOCOOOOCOCOCOWWOONDO 


ie 
TSTCNTRL TEST PACKAGE CONTROL PROGRAM 16-SEP-1984 01:30: AX/VMS Macro V04-00 Page 85 | 
v04-000 Create Process-name mits 7 3a 88 See SRC ICES PNASOO MAR: 1 ° B, | 


5A OC AC 0 ODc9 r MOVL CP_TEST_FILENAME (AP) ,R10 3; get addr of desc. for filename | 
3 A A ODC 4 MOVZBL (RTO),RB i get size of filnam (clear desc typ 
§ D1 ODD 44 CMPL Fe #PNAME_FILNAM_SIZ ; 1s the size of filnam to large? 
15 ODD 45 BLEQ 108 : no, $0 continue 
58 9 00 44 ety MOVL #PNAME _FILNAM_SIZ,R8 ; yes, so make filnam max allowed 
5B 04 AC 00 +4, ots 10$: MOVL CP_PROCESS_NAME (AP) ,R11 ; get addr of desc for procname 
5 D4 ODDC 3650 CLRL Re ; this is our counter and index | 
54 09 #5 ° 44} 651 SUBL3 R8,#PNAME_FILNAM_SIZ,R4 ; number of blanks needed 
0 1 +f 026 BEQL 30$ ; no blanks are needed 
04 BB46 0 90 ODES 837 208: MOVB #*A/ /,ADSCSA_POINTER(R11)CR6] ; put blanks in 
F756 54—C*@F 2 DE9 639 AOBLSS R4,R6,20$ : are all of them in? 
444 637 ; now move the filename in, truncate it if too large. 
04 BA 58 28 ODED e238 30$: MOVC3 R8,@DSCSA_POINTER(R10),- 
04 BB46 ODF1 3660 @DSC$A_POINTER(R11) CROJ ; move the filename in 
56 58 CO pore red ACDL2 R8,R6 ; move index to end of string 
por? ess 3; add the underscore 
04 BB46 SF 8F 90 ODF7 665 MOVB #*A/_/,@DSCSA_POINTER(R11)CR6) ; put underscore in 
56 606 pore 208 INCL R6 3 point to next character 
ODF 708 3; now put the ID number in 
5E 190 C2 ODEE $90 SUBL #1D_DESC_LENGTH,SP ; allocate space for local storage 
6—€ 10 00 00 8F > BeOS 671 MOVC #0,70,#0,#1D_DESC_LENGTH, (SP) ; clear out local storage 
3 DO OE0 ore MOVL P,R? ; keep the pointer to this area 
04 A7 OB A DE Beds 67 MOVAL ID_STR(R7), ID_ADDR(R7) ; initialize the addr of desc. 
67 04 00 et 674 MOVL #IB_STR_SI2,1B_DESC(R7) : initialize size of desc. 
OC A7 O08 BC 3C deg ors MOVZWL @CP_ID_NUMBER(AP) ,1D_NUMB(R7) ; clear upper word of ID number 
06 OD OE19 ore PUSHL #ID_STR siz 3; this number of ascii digits 
67 OF OEIB 367 PUSHAL ID_BESCTR?) ; where the converted string goes 
OC A? ~OOF EI 680 PUSHAL ml BE ; the number to convert 
00000000'GF 03 FB : Q ? 1 ALL #3,G*OTSSCVT_L_TI 3; convert the number to text 
: 4 § 3 now move ID into process name 
8 A7 4 8 7 5 MOVCS #ID_STR_SIZ,ID_STR(R7),- 
4 04 eae . 4 é § aDSCSA-POINTER(R11)CR6) ; move ID in 
OE DO OE 6 8 MOVL #<PROCESS NAME SI7Z-1>,- 
68 E p 6 DSC$W_LENGTH(R11) 3 put size of process name in 
E 6 Y ; subtract one so a blank looks 
: : hs : Like it is there. 
50 01 00 ; i MOVL #SS$_NORMAL ,RO : signify success 
E34 5 


04 RET 


M, Magee eet El g 
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. SBTT Make temporary file name 
; define offsets for parameters 


MF -enr pave 
me ib’ “EXT 

NOMBER = 12 
MF “test FILENAME = 16 


°+¢+ 

; FUNCTIONAL DESCRIPTION: 

This routine is called to make the filespec for the sengerary 
files produced by the TSTCNTRL. It makes each files espec 

; unique by appendin 

; CALLING SEQUENCE: 


This routine is 
PUSHAQ 


g the sequence number to the spec. 


i CREAT_PROC via: 
AME 


MP_LOG_NAM 


- address of descriptor to hold temporary log filename 

- address of descriptor hoteing the poms file extension 

MF 15 NOH MBER(AP) = address of Longuord holding ID numb 

MF-TEST_FILENAME(AP) = address of descriptor holding Tleneue (without exten 
; IMPLICIT INPUTS: 

None. 

; OUTPUT PARAMETERS: 


The temporary filename (@MF_TEMP_FILE(AP)). 
Completion code in RO. 


IMPLICIT OUTPUTS: 

; None. 

; COMPLETION CODES: 

; SS$_NORMAL, OTS$_OUTCONERR 
; SIDE EFFECTS 

; None. 


MAKE _TMP_LOG NA 
> WORE amcR2, R3,R4,R5,R6,R7,R8,R9,R1I0.R11> 


; get input information 


OFFC 
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fo bee hahah ah ah eal ah ah ah sb dh sh eh th db dh dh th dh hh dh hb dh db dh ah sh ah ah ah ah ahh ahah ad eal eal eal eal 

NNN ANNI NNN NNN NNN SINS SSSI 

DADA BEB BREE PANNA AAAI PONONONI NNN) BQO OOO O00 

I OOO NAVE WN OOO NA NEW 0 ODNOAU EWN OC OONOAU EWN OOO NOMEN OOON 
. * . . . . . . . . . . . . . . oo . . 
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E 4 
22 98 AC 4 E - 5 5 MOVL MF _TEMP_EXT(AP) ,R9 ; get addr of desc of extension 
A 10 AC BO OE SB 756 MOYL TEST FILENAME (AP) ,R10 ; get addr of desc. for filename 
58 6A A OE3F 3757 MOVZBL DSC$W_LENGTH(R10),R ; get size of filnam (clear desc typ. 
5B 04 AC DO 71 f 8 OVL MF_TEMP_FILE(AP) ,R1 ; get addr of desc for log filnam 
7 £69 ; move up to MAX_TMP_LOG_NAM characters into file spec 
05 58 O01 5¢8 186 CMPL R8,#"AX_TMP_LOG_NAM :; is size of filename more than 
E4 76 ; we can handle? 
3 615 «OE49 3764 BLEQ 10$ ; no, so don't truncate 
58 5 00 Reece 19 MOVL #MAX_TMP_LOG_NAM,R8 ; truncate it down to acceptable siz 
ELE 3969 108: 
68 58 00 OG 768 MOVL R8,DSC$W_LENGTH(R11) ; keep size of growing filespec 
56 D4 OES 769 CLRL ; this is our index and pointer 
04 BA 58 28 OES 7 MOVC3 RB,ADSCSA_POINTER(R10),- 
04 BB46 OED 771 aDSCSA_POINTER(R11) CRO] ; move filename in 
66 65 co Ths ure ADDL2 R8,R6 ; adjust pointer 
pege ore ; now get the ID number 
10 C2 QE5D ore SUBL #1D_DESC_LENGTH,SP ; allocate space for local storage 
6€ 10 00 008F 00 e2 +4 77 MOVC #0,70,#0,#1D_DESC_LENGTH, (SP) ; clear out local storage 
5 DO OE6 778 MOVL SP,R ; keep the pointer to this area 
04 A7 OB A 43 geen 779 MOVAL ID_STR(R7),ID_ADDR(R7) ; initialize the addr of desc. 
) beSe 780 MOVL #10_STR_S!2,1B_DESC(R7) ; initialize size of desc. 
oc Av }6~0C BC OSC OE72 res “OVZWL 4 @MF_ID_NUMBER(AP) , 1D_NUMB(R7) ; clear out upper word of ID 
04 DD OE77 3784 PUSHL #I1D_STR_SIZ ; this number of ascii digits 
67 OF OE79 ie PUSHAL ID_BESCTR7) z where the converted string goes 
OC A? DF OE7B 3786 PUSHAL 1s BE ; the number to convert 
00000000'GF 03 FB 943 tA CALLS #3,G*OTSSCVT_L_TI ; convert the number to text 
+t 434 3; now move ID into process name 
08 A? C4 28 OE85 3791 MOVCS #ID_STR_SIZ,ID_STR(R7),- 
04 BB46 E89 198 @DSCSA-POINTER(R11) CROJ ; move ID in 
56 04 CO OE8C 379 ADDL2 #ID_STRISIZ.R : adjust pointer 
68 04 C0 +4 Pe ADDL #1ID_STR_SIZ,DSCSW_LENGTH(R11) 3; adjust size 
i P38 3; now put file extension on 
0489 69 28 OQE9 79 MOVC3 DSCS$W_LENGTH(R9) ,@DSCSA_POINTER(RY) ,- 
04 BB46 E96 79 @DSCSA_POINTER(R11)CR6I : put extension on 
68 69 AO E99 90 ADDW2 DSC$W_LENGTH(R9) ,DSCSW_LENGTH(R11) ; adjust size 
50 01 00 44 03 MOVL #SS$_NORMAL ,RO ; return success 
04 OQESF 4 RET 
EAO 05 


i stn 
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fA a8 -SBTTL Assignment Expression Subroutine 
Py ; define offsets for parameters 


00000004 OEA pai ASG_CNT_CAS = 4 

; FUNCTIONAL DESCRIPTION: 
This routine is reached when the CASESV_ASSIGN bit is set. It 
takes the results of the parse routine (which has already determined 
the keyword and if it valid or not) and calls the proper assignment 
routine for that particular keyword. 

CALLING SEQUENCE: 


PUSHAL CONTROL CASE 
CALLS #1,ASSIGN_SBRTN 


INPUT PARAMETERS: 
ASG_CNT_CAS(AP) = address of the longword holding the CONTROL_CASE 
IMPLICIT INPUTS: 
The results of the pores routine are implicit inputs, namely 
KEYWRD_EQ_VAL = a word which holds a numerical value equivalent 
to each kéyword. These values are defined in the GET_PARSE 


routine. 
KEYVALUE_DESC = a descriptor which points to the value of the 


assignment statement 
OUTPUT PARAMETERS: 
None 
IMPLICIT OUTPUTS: 
This routine itself has no outputs; however, the routines which this 
one calls may modify global variables. These modifications are 
described in the subroutines. 
COMPLETION CODES: 
SS$_NORMAL 
SIDE EFFECTS: 
None 


Bete Se Se Se Ge Ge Se Se Ge Se Ge Ge Ge Ge Se GS. Ge Ge Ge Ge Ge Ge Se Ge Ge Se Ge Fe Ge Ge Ge Ge Ge Sse Ge Se Se Sete Ge Se 


ASSIGN_SBRIN: 
WORD “M<R2> 


turn off assignment flag and turn on parse flag 


Bictg #CASESM_ASSIGN,@ASG_CNT_CAS(AP) ; don't come back to assign 
BISL2  #CASESM“PARSE,@ASG_CNT_CAS(AP) ; but go to parse 


PPPPPPPPSVSSPPPSEPYPEPHEPEPKKPEEEyrEr EYEE rrr rrrrrrrrrrrrrr>r>r 
PAAR BB BS BB EEE AAAI AW POPUPPUPIPINNNY) 3 2 
AR OQ ODWNAUNE WIN OOD NA UNE WIN O OD NIA UE WIN OOO NOAUES WN OOO NOAU EWN —OO0 
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0.09.00 0900 00 09 00 G9 0d Gd Cd CD G9 CD 0D 09 09 Gd G9 Cd CD Cd C9 G9 G9 CD Gd 0D Cd 0D 09 09 0D CD CD CD CD: 


0004 
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EAE 64 
EAE 65 ; now . | using the results of the parse routine 
BAG 96 ; case to proper assignment 
9° EA 4 é FFS #0,- 3; start looking at preition 0 
EB $ #<ASSIGNSS_ASGN_CASE*8>, = ; this is how many bits 
04A7'CF EB 0 ASSIGN_CASE,- ; this is the base 
52 Bg 4 R i; put results here 
06 00 S52 &F EB} 78 108 CASEB R2,#0,#<ASSIGNSK_ASGN_CASE_SIZ = 1> ; goto proper routine 
011' OEB9 3875 = WORD LOG ASG = 10$ 
$10" EBB id: “WORD PNAME_ASG - 19 
Ogee EBD 7 eWORD START_ASG = 10$ 
0035° OEBF 78 «WORD STOP_ASG = 10$ 
0041' OEC1 3879 «WORD COM_ASG 133 
004D' pecs 880 WORD TIM_ASG - 10$ 
0059" ECS 881 -WORD PARTASG = 10$ 
0054 «31 aaep He BRW END_ASSIGN_SBRTN ; if no match, just exit 
OECA 3885 LOG_ASG: 
ay +H] ; do assignment to change name of the permanent log file 
O77D'CF 7F OQECA 3586 PUSHAQ FILE_SPEC_DESC ; location of new filename 
OF98'CF O01 FB O65 +34 CALLS #1,LO0G_ASG_RTN ; do the assignment 
0048 31 OEDS 891 BRW END_ASSIGN_SBRTN ; and leave 
OED6 535 PNAME_ASG: 
BEDS Bae ; do assignment for the process name 
O8B4'CF 7F QED6 3896 PUSHAQ ASSIGN VALUE_DESC ; the location of the new name 
OF22'CF 01 FB SEDA 897 CALLS #1,PNAME_ASG-RTN ; do the assignment 
003c 31 EDF 899 BRW END_ASSIGN_SBRTN ; and leave 
Oeeg 301 START_ASG: 
i: On8 ; do assignment to change the starting sentinel 
O8B4'CF 7F OEE 904 PUSHAQ ASSIGN_VALUE_DESC ; the location of the new sentinel 
OF43'°CF O01 FB BEES On2 CALLS #1,START_ASG-RIN ; do the assignment 
0030 = 31 fe $07 BRW END_ASSIGN_SBRTN ; and leave 
EEE 3909 STOP_ASG: 
BEE 319 “3 do assignment to change the ending sentinel 
O8B4'CF 7F bee aig PUSHAQ ASSIGN_VALUE_DESC ; the location of the new sentinel 
OFSO"CF O01 FB ef + CALLS #1,STOP_ASG_RIN ; do the assignment 
‘ 0024 31 der? 919 BRW END_ASSIGN_SBRTN ; and leave 
‘ EFA 3919 COM_ASG: ; 
fe 4 ; do assignment to determine if we turn on or off the comment flag 
O8B4'CF 7F OQOEFA 3920 PUSHAQ ASSIGN_VALUE_DESC ; the location of the flag 
| 
| 


<- 
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OF6F‘CF O01 FB Fos 3 1 CALLS #1,COM_ASG_RTN 3; do the assignment 
0018 31 : ; 3 BRW END_ASSIGN_SBRTN ; and leave 
FO6 3925 TIM_ASG: 
: ° 3 § ; do assignment to set the watchdog timer 
O9D5'CF 7F OQFO6 39 8 PUSHAQ TIME_VALUE ; location of the time 
OFDB'CF 01 FB ‘ 4 2 5 CALLS #1,TIM_ASG_RTN ; do the assignment 
oooc =s«é31 4 4 1 BRW END_ASSIGN_SBRTN ; and leave 
Fie 39 g PAR_ASG: 
ot 3 : ; do assignment to change the parallel count 
O8B4'CF 7F or} 9 $ PUSHAQ ASSIGN_VALUE_DESC 3; the new count 
1O1E'CF 01 FB Beis 3 8 CALLS #1,PAR_ASG_RTN ; do the assignment 
0000 = =—‘31 arte $35 BRW END_ASSIGN_SBRTN ; and leave 
OF1E 3941 END_ASSIGN_SBRTN: 
Orie ac§ : all done with assignment, so leave 
50 01 00 ors a7e MOVL #SS$_NORMAL ,RO ; leave with success 
04 OF21 3946 RET 3 exit 


Se —_ 
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F -SBTTL Assignment Routine for Process Name 
; define offsets for parameters 


00000004 PNAM_ASG_DSC = 4 


as a ns Be ea es a) 


y+4 
; FUNCTIONAL DESCRIPTION: 


3} ag is called to change the current process name of the 


; CALLING SEQUENCE: 


PUSHAQ ASSIGN VALUE_DESC ; the new process name 
CALLS #1,PNARME_ASG-RTN 


INPUT PARAMETERS: 


PNAM_ASG_DSC(AP) = address of a descriptor of the assignment value 
(the process name) 


IMPLICIT INPUTS: 


OUTPUT PARAMETERS: 
None. 
IMPLICIT OUTPUTS: 
None. 
; COMPLETION CODES: 
SS$_NORMAL 
SIDE EFFECTS: 
The process name will be changed. 


e 
Py 
oe 
Py 
e 
Py 
: 
; 
e 
Py 
e 
: 
° 
Py 
° 
ww 
: None. 
: 
: 
e 
Py 
Py 
; 
: 
e 
e 
° 
Py 
e 
: 
Py 
: 
: 
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PNAME_ASG_RTN: 
007C 4 -QORD “M<R2,R3,R4,R5,R6> 
Bee 3 put the new process name in the descriptor 
52 04 aC 00 ie MOVL PNAM_ASG_DSC(AP) ,R2 3; get the address of new name 
0516'CF 62 60 43 MOVW DSCSW_LENGTH(R2),PRC_NAM_DESC ; get the new size 
6¢ 28 4000 MOVC3 DSC$W_LENGTH(R2),- : and copy the new name in 
OSIE'CF 048 4 1 @DSC$A_POINTER(R2),PRC_NAM_STR : the descriptor 
2 ; call the system service to set the process name 
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rt : 5 SSETPRN_S PRCNAM = PRC_NAM_DESC ; set the process name 
50 01 00 7 ? ? MOVL #SS$_NORMAL ,RO ; return success 
F42 4009 RET i exit 
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-SBTTL Assignment Routine for Starting Sentinel 
; define offsets for parameters 


0000004 STRT_ASG_DSC = 4 


p++ 
FUNCTIONAL DESCRIPTION: 


This routine is called to change the starting sentinel keyword used 
when looking through the temporary log file. 


CALLING SEQUENCE: 


PUSHAQ ASSIGN VALUE_DES 
CALLS #1,PNAME_ASG_RTN 


INPUT PARAMETERS: 


STRT_ASG_DSC(AP) = address of a descriptor of the assignment value 
(the process name) 


C ; the new sentinel 


IMPLICIT INPUTS: 


; OUTPUT PARAMETERS: 
None. 
; IMPLICIT OUTPUTS: 
The value of START_DESC will be changed. 
; COMPLETION CODES: 
$S$_NORMAL 
SIDE EFFECTS: 
None 


TART_ASG_RTN: 
-QORD “M<R2,R3,R4,R5,R6> 


; to make things simple, put the address of the descriptor in a regr. 

MOVL STRT_ASG_DSC(AP) ,R2 3 get the aadress of the desc. 

3; now, move the assignment value into the actual sentinel descriptor 

MOVW DS CEU LENS THSRG) START _DESC 3 put gize in descriptor 

MOVC3 DSC$W-LENGTH(R2),- 3 put in the new sentinel 
@DSC$K_POINTER(R2) ,START_STR 


MOVL #SS$_NORMAL ,RO 3 return success 


: None. 
S$ 


007¢ 


52. 04 AC DO 


O28A'CF é3 88 
O292°CF 048 
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PROGRAM 1 
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RET 
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; exit 
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Assignment Routine for Ending Sentinel P=1984 ETP.SR 
-SBTTL Assignment Routine for Ending Sentinel 


= 
™~ 
wr 


; define offsets for parameters 


00000004 STP_ASG_DSC = 4 


+e 
FUNCTIONAL DESCRIPTION: 


This routine is called to change the stopping sentinel keyworc used 
when looking through the temporary log file. 


; CALLING SEQUENCE: 


PUSHAQ ASSIGN VALUE_DE 
CALLS #1,PNAME_ASG-RT 


; INPUT PARAMETERS: 


a ; the new sentinel 
STP_ASG_DSC(AP) = address of a descriptor of the assignment value 
IMPLICIT INPUTS: 
None. 
: OUTPUT PARAMETERS: 
None. 
IMPLICIT OUTPUTS: 
The value of STOP_DESC will be changed. 
; COMPLETION CODES: 
; SS$_NORMAL 
; SIDE EFFECTS: 
None 


OOD NA UE WN SO ODNAUNE WN 9 OD NAN E WN SO OODNOAUTSE 


STOP_ASG_RIN: 


ee a ah sh Ab Ab Ab Ab db Ab Ab Ab Ak Ab Ab Ab Ab Ah Ab dh Ab Ab Ab bh db dh hb dh dh hh dl 
DWBDD OOOO OVO OO VOOOVOVOOOOVOOVOOVOOVOOVOOOODOOVOOOOOOO 
ye oe ot oy ot ot ot at ot ot et et et et et ee ee ee ed dl a ak ak, ed a ek eek ak te 
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1 
007¢ WORD “M<R2,R3,R4,R5,R6> 

é ; to make things simple, put the address of the descriptor in a regr. 

52 04 aC 00 : 8 MOVL STP_ASG_DSC(AP) ,R2 ; get the address of the desc. 

: 3; now, move the assignment value into the actual sentinel descriptor 
cstercr SSE See sets BEHN-LENGTUGNH} SToP.pese = put eoeeasmage Sent fu 
O323'CF 048 6s 4 @DSC$A_POINTER(R2) ,STOP_STR 
50 01 00 68 § MOVL #SS$_NORMAL ,RO ; return success 


o 
mm 


<-— 
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04 OF6E 4128 RET ; exit 
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FOF 


: -SBTTL Assignment Routine Changing Comment Flag 


nm 
PAOo 
n” 


i Di Di i i Di i i Rie De Bi Di De Be Bi Bis Ds Bs Bs Ds Bs Bs De es Ds Be Ds Ds es es ee De Bs es DB Be es es es 


3; define offsets for parameters 


00000004 COM_ASG_DSC = 4 


+e 
FUNCTIONAL DESCRIPTION: 


This routine is called to change the current value of the flag which 


L 
signals the TSTCNTRL to either print out comments or not. 
CALLING SEQUENCE: 


PUSHAQ ASSIGN_VALUE_DESC ; the comment string 
CALLS #1,COM-ASG_RTN 


| 
| 


COM_ASG_DSC(AP) = address of a descriptor of the the comment value 
(either YES or NO) 


None. 
; OUTPUT PARAMETERS: 
None. 
: IMPLICIT OUTPUTS: 
: May change the value of TCNTRLS$V_PRNT_COMMENTS in FLAG 
; COMPLETION CODES: 
; SS$_NORMAL 
; SIDE EFFECTS: 


> IMPLICIT INPUTS: 
: Comments may or may not be printed out. 


COM_ASG_RTN: 
<WORD “M<R2,R3> 


3; put the address of the descriptor in a register to make things easy 
MOVL COM_ASG_DSC(AP) ,R3 

; the heyuere value is only allowed to be YES or NO 

; move the address of the string into a register so that we may 

; look at the first character easily 

MOVAL a@DSCSA_POINTER(R3S) ,R2 ; get the address of the string 


; look at first character for a Y or N 


SIDS OO DS OS DD DS OS OS OS DS DO DD OPAPP AAA AAA AA AAA AA AAO 


000C 


53 04 AC 00 


52. 04 B35 ODE 


Fe ee ee ee ee ee re 

Fy oy ot ot oF ot nt ot ot ot et ee ek ee ek ek ee ee he ek ek ek et 
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C009 C9 CD09 09 00 INN NDS DDD DED DDD DS TT BB BB BE AAI NII 
AIF WD 0 ODN NE UIN $9 OD NOU EWN | 9 OD NA NEW 0 OO NOAM EWN O CONOU EW" O 
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91 
12 


sf 


CA 


dO 
04 


F79 


70 
jaa 

F 
7F 
7F 
8 
8 


SF ee ee ee ee oe 


woooon 
NN EE SD 


4187 CMPB sig? ares ; is it yes? 

af BNEQ 10 3 no, try again 
a} ; comments are to be printed, so turn flag on 

41 § BISL2 #TCNTRLSM Ag! gr rents, FLAGS i yes, turn it on 
2 ? BRW END_COM_ASG_R : all done 

4195 10$ 

2138 ; comments are not to be printed, so turn flag off 

£138 BICL2 #TCNTRLSM_PRNT_COMMENTS,FLAGS ; turn comments off 
4 of END_COM_ASG_RTN: 

2 b¢ MOVL #SS$_NORMAL ,RO 3; return success 
4204 RET 
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§ -SBTTL Assignment Routine for Log File Name 
; define offsets for parameters 
LGN_ASG_DSC = 4 


nn 
wo 


00000004 


yee 

3; FUNCTIONAL DESCRIPTION: 
This routine is called to change the current name of the permanent 
log file. The name can only be changed BEFORE the file gets created. 
There is a flag (TCNTRLSV_SET_LOGNAM) which gets set when the file 
is created. 

CALLING SEQUENCE: 


PUSHAQ FILE_SPEC_DESC ; the new logfile name 
CALLS #1,LO0G_ASG_RTN 


INPUT PARAMETERS: 


LOG_ASG_DSC(AP) = address of a descriptor of the assignment value 
(the new log filename) 


tt ot I IOOOCT 


OOD NAAN WIN 2 OD OO NA UNE WII OC OOD NOAUE WIN S(O OONOUE WO O00 


IMPLICIT INPUTS: 


FLAGS = used to check if the name has already been set, and to 
check to see if a error message is to be printed if it has. 


OUTPUT PARAMETERS: 
None. 
IMPLICIT OUTPUTS: 
None. 
COMPLETION CODES: 
SS$_NORMAL 
SIDE EFFECTS: 
The name of the log file may be changed. 


Se Se Ge Fe Se Oe Ge Se Ge Ge Ge Se Ge Ge Ge Ge Ge Ge Ge Se Ge Ge Ge Se Ge Ge Ge Ge Ge Ge Se Se Se Se Se Ge Se 


LOS_ASG_RTN: 
.WORD “M<R2> 


; first check to see if the SET_LOGNAM flag has been set 


BBC #STCNTRLSV_SET_LOGNAM FLAGS 20$ ; has not been set, so do assign 
BBS #TCNTRLSV-REWOUND FLAGS, 108 : skip message if wrapping 


; it has been set, so print a warning saying that it can't be changed 
PUSHAL NO_SET_LOG ; say we can't change log name 


1C O4A3°CF H E 
13 O4A35'CF A CE 
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1 ODD QOFAA 4 ; PUSHL eT 
porte $1350 F DD OFAC 4 PUSH ART TEX TiSTSSR UARNING 
00000 3. (CFB 4 ? 5 CALL G*LIBSSIGNAL 
FB9 4 3 10$: 
4 ? § ; since it is too vate to change the filename, just leave 
0018 31 OFB9 4270 BRW END_LOG_ASG_RIN :; if set, then skip it! 

BE 4592 208: 

443 ? i ; ; we can change the filename, so put the new one in the filename buffer 
445 2 rs ; put the address of the filename descriptor in a register to make it easy 

52 04 AC 00 4, ? ? MOVL LGN_ASG_DSC(AP) ,R2 ; address of descriptor 
4; ? 5 ; now, update the old log filename descriptor 
O173'CF 6 BO OFCO 4 i MOVW DSC SW abe wernie ),LOG_FIL_DESC ; put size in old descriptor 
28 OFCS 4 § MOVC3 DSCS$W-LENGTH(R2) 3; put in new filename 
017B'CF 048 orc 4383 aDSC$K_ POINTERCRD), LOG_FIL_STR 

FCC 4 3¢ SFAB_STORE FAB = CNTRL_LOG FAB,- ; change the FAB 

gece 4 e? FNS = LOG_FIL_DESC 

Orb? ? S3 END_LOG_ASG_RTN: 

50 01 00 ree : oy MOVL #SS$_NORMAL ,RO 3 return success 
04 OFDA 4292 RET ; and leave 
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4s -SBTTL Assignment Routine for Setting Watchdog Timer 
44 ; define offsets for parameters 
00000004 OFDB TIM_VAL = 4 
FDB 
FDB ++ 
4 FUNCTIONAL DESCRIPTION: 


This routine is called to set the watchdog timer which is used to 
prevent a process (or a group of processes) from hanging a number of 
STCNTRL tests to be run. 
CALLING SEQUENCE: 


PUSHAQ TIME_VALUE 3; the complete system time 
CALLS #1,TIM_ASG_RTN 


; INPUT PARAMETERS: 

TIM_VAL(AP) = address of the complete time in system format. The time 
has already been parsed out and converted from ascii 
to system. 

IMPLICIT INPUTS: 


: FLAGS = FLAGS is checked to see if we should set the timer and to see 
; s 


Ah 4-44-4444 4-4-4444 45 
fosTesfosTockesTostostostesTecTestecTestesTectesTe sles] 


ee if would should an error message out. 
OUTPUT PARAMETERS: 
None. 
; IMPLICIT OUTPUTS: 


FLAGS - if we set a timer the TCNTRLSV_TIMER_SET flag is set to 
indicated this. 


; COMPLETION CODES: 
SS$_NORMAL 
: SIDE EFFECTS: 


It will cause a timer to be set and active. This timer may cause 
the entire TSTCNTRL to abort if expired. 


TIM_ASG_RTN: 
.WORD “M<R2,R3> 


:; if timer is currently set, then print a warning, otherwise 
; just do assignment 


BBC #TCNTRLSV_TIMER SET,FLAGS qos ; not set, do agg ignaens 
BBS #TCNTRLSV~REWOUND , FLAGS, 16 ; skip message if wrapping 
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sa. 64 re? ; 5 even NO. SET_TIM 3; Say that we can't set it 
00C31130 8F ODD OFEF 4 PUSHL #TCNTRLS 1) RS ae WARNING 
00000000'GF 03 FB cre : 33 CALLS #3,G*LIBSSIGNA 
FFC 4 10$: 
eh 2 3? ; we can't set the timer while one is active, so leave 
0018 31 OFFC 4359 BRW END_TIM_ASG_RTN 
OFFE 2361. 208: 
OFF 2 $6 : ; a timer is not currently running, so we are able to start one. 
O4A3'CF 00000100 8F C8 faa : rt: BISL2 #TCNTRLSM_TIMER_SET,FLAGS 3 say that a timer is active 
1008 4 08 SSETIMR_S DAYTIM = aTIM_ ye ee - ; start the timer 
1008 436 ASTADR = TIME-EXP_AST.- : if expire, go here 
1008 4 68 REQIDT = #MAXTIME—ID : timer id is 1 
io1a 4376 
101A 4371 END_TIM_ASG_RTN: 
50 01 DO 101A 2393 MOVL #SS$_NORMAL ,RO 3; return success 
101D 4374 
101D 4375 


04 RET 


B 9 
TSTCNTRL TEST PACKAGE wy tg Fsty ene 16-SEP-1984 9} 30:08 AX/VMS Macro V04- 


0 P 103 
v04-000 Assignment Routine for Changing the Para 5-SEP-1984 UETP.SRC GETPNASOS MAR: 1 tee (33) 


IMPLICIT OUTPUTS: 

The value of TOTAL_PROC_LIMIT and ACTIVE_PROC_LIMIT will be changed. 
COMPLETION CODES: 

SS$_NORMAL 
SIDE EFFECTS: 

None 


1 3 , -SBTTL Assignment Routine for Changing the Parallel Count 
1 7 ; define offsets for parameters 
00000004 ! PAR_ASG_DSC = 4 
1 p++ 
! 3; FUNCTIONAL DESCRIPTION: 
1 : This routine is called to change the value of the parallel count 
1 ; (that is. the number of processes ailowed to execute in parallel). 
1 5 t will make sure Fret no processes are currently executing, and, 
: 3 : f this is true, will change the count for the next set. 
; 3 CALLING SEQUENCE: 
1 93 ; PUSHAQ ASSIGN_VALUE_DESC : the new count 
\ 4 $ CALLS #1,PAR_ASG_RTN 
3 : INPUT PARAMETERS: 
1 98; PAR_ASG_DSC(AP) = address of a descriptor of the assignment value 
; i : (the new count in ASCII) 
1E 4401 : IMPLICIT INPUTS: 
1 402 ; 
: rt 3 None. 
0 + OUTPUT PARAMETERS: 
1 : None. 
1 : 
1 ; 
1 ; 
1 3 
1 3 
1 3 
1 3 
1 3 
1 ; 
1 ; 
1 3 
1 3 
1 : 
1 
1 P 
1 


AR_ASG_RTN: 


0000 ~-WORD “M<> 


First check to see if any processes are currently running. If some are, 
then print out a warning and ignore the assignment. 


TSTL PROCESS_RUNNING i are any processes running 
BEQL 108 ; no, then OK to do assignment 


Fa ot at nt at nt et tk ee ek ek ee 
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TSTCNTRL 
v04-000 


O03 OGA3'CF OA 
004A 


0394'CF 


00C31130 8F 
Q0000000'GF 03 


0034 


O00C "CF 
4 BC 
Q0000000'GF 02 


00 otal | 
0355'CF 


00€31130 ae 
00000000 ' GF 


OOOC’CF 01 
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4 ; Processes are still running, so unable to perform assignment, 
: print out a warning. 


Routine 


BBC #TCNTRLSV_REWOUND ,FLAGS ,5$ ; if not wrapping, then write msg 

BRWw 30$ ; if wrapping, just ignore asg 
5$: 

PUSHAQ PROC_ACT ; yes, print warning... 

PUSHL #1 

PUSHL STCNTRLS ee WARNING 

CALLS #3,G*LIBSSIGNA 

BRW 30$ 
10$: 


; Everything is OK, so perform the assignment. 


Convert assignment value into a number 


PELL LLL LLLP LPR EPP PEPE EEE 
Pe et ee ee ee ee eee Ns 
OODNOUE WN OODNAUES WR OOONOAM 


PUSHAL TOTAL_PROC 


LIMIT place for converted number 
PUSHAQ @PAR ASG gopsc (ar) 


string to be converted 


reed CALLS #2,G*OTSSCV L i convert text to longword 
4465 ; 

4464 ; See if valid PARCNT 

4465 ; 

4466 

4467 CMPL TOTAL_PROC_LIMIT,#0 : is PARCNT <= 0? 

4468 BGTR $ 3; no, continue 

4469 PUSHAL ZERO_PARCNT i yes, print warning... 
4470 PUSHL #1 

4471 PUSHL #TCNTRLS a WARNING 

ret! f CALLS #3,G*LIBSSIGNA 

pate: MOVL #1, TOTAL_PROC_LIMIT 3 « « « and use PARCNT = 1 
4476 20$: 

447 MOVL TOTAL_PROC ae ; set maximum number of 
7388 ACTI IVE. PROT_L Ait 3 active processes 

447 

4480 30$ 

4481 MOVL #SS$_NORMAL ,RO ; return success 

AN A 
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4485 < -SBTTL Get and Parse Record 
FUNCTIONAL DESCRIPTION: 
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. (33) 


: This routine is called whenever a new input record is required. It 

3 will perform a GET to fetch the record and will then parse the record 
3 out into its various components setting parse flags to signal the type 
3 of record which was just fetched. 

: CALLING SEQUENCE: 

: CALLS #0,GET_PARSE_SBRTN 

: INPUT PARAMETERS: 

: None. 

: IMPLICIT INPUTS: 

: FLAGS == the TSTCNTRL flags 

: CONTROL _CASE 

; PARSE_FCAGS 

3 The data file RMS structures are used to fetch the next data record. 
> OUTPUT PARAMETERS: 

: None. 

: IMPLICIT OUTPUTS: 

6 


ALL of the parse fields aay Sy shengne. (See the parse read/write area 
elds. 


which describes all these 
; COMPLETION CODES: 
SS$_NORMAL 
SIDE EFFECTS: 
May change the values of some the flags. 


ET_PARSE_SBRIN: 
"QORD “M<R2,R3.R4,.R5,R6.R7.RB.R9-R10,R11> 


:; initialized the stack area for local storage 
SUBL yp PARSE _LENGTH,SP ; allocate space for local storage 
SP. 


SN 


OFFC 


SE 00000254 8F : 
6E 0254 8F 00 00 BF 0 MOVC #0,#GET_PARSE_LENGTH, (SP) : clear out local storage 


#0 
MOVL rif 3; keep pointer to local area 


GET_DAT_RCRD: 
; ready to get a record and set it up to be parsed 


onnm 
oOmrn 


; clear out the parse flags since we are working on a new record 


CLRL PARSE FLAGS ; reset slags from previous parse 
CLRL ASSIGR_CASE > reset assignment case flags 


a ee ee ee ee ee ee’ 
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v04-000 Get and Parse Recor SEP= UETP.SR 
OGOF'CF D4 3A CLRL CREATE_PROC_CASE i; reset case for creating proc 

9E 3 get the record from the input data file and put it in a buffer from 
4 ; which we can work 
9E $GET RAB = DATA FILE_RAB,=- ; use the input file RAB 
H ERR = RMSERR 
v4 ; see if we got a record or if we are at E-0-F 

50 00000000'8F 01 AD CMPL #WRMSS$_EOF ,RO ; is status end-of-file? 

08 12 BS BNEQ 10$ 3 nc, we have a record, continue 


; we are at end-of-file, so set a flag and skip the parse 


R 
1 454 
1 4 rk 
1 4544 
1 4545 
1 & 23 
1 454 
1 4 ‘3 
1 454 
1 4550 
1 4551 
1 45 ¢ 
1 $2 
10B6 4554 
106 4386 
049B'CF 08 gs 10B6 1325 BISL2 #CASESM_EOF ,CONTROL_CASE ; at end-of-file 
0040 1 1088 $228 BRW CHK_END_SEG ; check for end-of-segment 
188 £228 os 
OB02'CF B80 10BE 4561 ; MOV <DATA_F ILE_RAB+RABS$W_RSZ>,- ; put the size of the input string 
065D' CF 19C 2286 <DATA_RCRD_DESC+DSC$Q_LENGTH> ; in the record descriptor 
pee reat: 3 now, upcase the entire string so we don't have to worry about matches 
O65D'CF 7F 10C5 $28 PUSHAQ DATA_RCRD_DESC 3; change the input string 
D'CF 7F 10C9 456 PUSHAQ DATA_RCRD_ DESC 3 to become 
00000000'GF 02 FB 4 $298 CALLS #2,G"STRSOPCASE ; all caps 
1004 4570 ; Ok, we now have a record in the proper format, so call TPARSE to 
+ $235 3; parse it out into its components 
1308 4378 ; initialize the TPARSE parameter block 
08 v0 1004 4575 MOVL #TPASK_COUNTO,- ; put count in the 
68 D6 4376 TPASL_COUNT+DAT_PARSE_BLK(R11) : TPARSE block 
04 AB D4 1007 4578 CLRL TPASL_OPTIONS*DAT_PARSE_BLK(R11) ; clear the options field 
02 C8 10DA 4579 BISL2 #TPASA_ABBREV,- ; allow abbreviations 
04 AB Hid $280 TPASL_OPTIONS+DAT_PARSE_BLK(R11) 
ODE 43 é PARSE_DAT_RCRD: 
10pE 4584 3; now copy the descriptor of the data record into the TPARSE block so 
1}DE $2 5 ; that it knows what it is looking at. 
065D'CF DO 10DE 45 5 MOVL <DATA_RCRD_DESC+DSC$W_LENGTH>,- ; put the length in the TPARSE 
08 AB ! ep $2 8 TPASL-STRINGCNT+DAT_PARSE_BLK(R11) : count field 
0661'CF DO 1064 4590 MOVL <DATA_RCRD_DESC+DSCSA_POINTER>,- ; put the address in the TPARSE 
OC AB ! sf $23) TPASL “STRINGPTR+DAT_PARSE_BLK(R115 ; address field 
10EA 4 3 ; finally call TPARSE 
1k $38 
44 eH DF 1 EA 4 39 PUSHAL DAT_FIL_KEY ; use the data file keys 
pot Ae EE 459 PUSHAL DAT_FIL_STATE ; and the data file state table 
6B DF 10F2 4598 PUSHAL DAT_PARSE_BLK(R11) ; and the data file param. block 
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v04-000 Get and Parse Record ety 7 4:38:08 UETP.SRC SESPMASOD MAR: 1 ats (51) vg 
00000000'GF 03 FB } + $238 CALLS 4#3,G*LIBSTPARSE 3 perform the parse 
: 4 és 1 ; parse is done, did it succeed without syntax errors? 
4750 €9 i co re BLBC RO,SYNTAX_ERROR ; there was an error, so report it 
19FE te 5 CHK_END_SEG: 
10FE 46 § 
a 46 ; now, see if the watchdog timer expired. If it did, then continue 
10FE 4608 ; to get and parse records until the end of a segment is reached. The 
10FE 4609 ; end of a segment is either an end-of-file, or a process to be run 
a 3 2219 ; sequentially. 
a 1816 : first see if the timer expired 
35 O4A3'CF OE €E1 A reat BBC #TCNTRLSV_TIME_EXP,FLAGS,GET_AGAIN ; did the timer expire? 
113e 2218 3 maxtime is set, so get ready to get next record and see if at EOF 
0659"CF O02 C8 1130 edt BISL2 #PARSESM_GET_NXT_RCRD,PARSE_FLAGS ; prepare to get another record 
10 049B'CF 03 €1 113 rh 9 BBC #CASESV_EOF ,CONTROL_CASE,10$ ; not EOF, keep checking 
Bb rh § ; EOF is set, so end-of-segment, stop gets 
0659°CF O02 CA 110F 4624 BICL #PARSESM GET_NXT_RCRD,PARSE_FLAGS ; stop gets 
O4A3'CF 00004000 8F CA wi e ; BICL #TCNTRLSA_TIME_EXP, FLAGS 3 reset max time flag 
1A 11=—=«111D 4627 BRB GET_AGAIN : continue 
111F 4628 
111F 4629 10$: 
Vite 1839 ; are we at a filespec? 
14 049B'CF 04 €E1 Wie 1836 BBC #CASESV_FILE,CONTROL_CASE,GET_AGAIN ; no filespec, keep trying 
i : rege ; we have a filespec, is it sequential? 
00 €0 1125 46 § BBS #PARSESV_PROC_RUNS_OTKERS,- 3: not sequential, keep trying 
OE 0659'CF 1 . rh f PARSE_FLAGS,GET_AGAIN 
i ; rire ; it is sequential, end-of-segment 
0659°CF O02 CA 1128 4641 BICL #PARSESM GET _NXT_RCRD,PARSE_FLAGS ; stop gets 
O4A3"CF 00004000 BF CA i 8 1068 BICL #TCNTRLSA_TIME_EXP,FLAGS 3 reset max time flag 
1139 4644 GET_AGAIN: 
1139 4645 
i 4 het 3; the parse succeeded, but we may want to get another record 
03 0659'CF 01 fo 1139 ret} BBS #PARSESV_GET_NXT_RCRD,PARSE_FLAGS,10$ ; see if we need a record 
OOCA 1 113 ree BRW END_GET_PARSE ; we don't so exit 
114 $8 ° 10$: 
13 re § 3; the parse determined that we are to get another record, so start over 
FF4D «631 «41142 4654 BRW GET_DAT_RCRD ; get another record 
1145 4655 
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; : 3? SYNTAX_ERROR: 

ax error in the record, write out a message saying 


; there was a synt 
ailed and what caused the error 


114 | 
114 | 
1145 4 } 
1145 465 ; what record f 
114 4660 
55 50 DO 1145 4661 MOVL RO,R5 ; save the status 
114 1086 
1148 466 | 
BP tege ; make the descriptor of the record in error 
MW tee3 ; first initialize the descriptors | 
34 AB DE 114 red MOVAL RCRD_ERR_STR(R11),- ; put the address in the 
28 AB Wee 1235 DSC$A_POINTER+RCRD_ERR_DESC (R11) ; descriptor 
3 AB DE 1140 ter) MOVAL RCRD_ERR_STR(R11),- 3 put the address in the 
0 AB 1128 1828 DSCSA POINTER+RCRD_ERR_FAO(R11) 3; descriptor 
0108 8F 3C 1152 467 MOVZWL #<RCRB_SIZE*2>,- 3 put the size in the 
2C AB 1136 4674 DSC$wW_CENGTH+RCRD_ERR_FAO(R11) : descriptor 
1128 2258 ; then make the error message 
52 O65D'CF 00 1138 4678 MOVL DSC$W_LENGTH+DATA_RCRD_DESC,R2_ ; get size for the FAO 
53 0661°CF 00 1130 4679 MOVL  § DSCSAPOINTER+DATA_RCRB_DESC,R3 ©; get address for the FAO 
116 rts $FAO_S CTRSTR = RCRD_ERR_MSG,- ; the error message 
116, 468¢ OUTLEN = DSC$Q_LENGTH+RCRD_ERR_DESC(R11),- ; the output Length 
1162 468 OUTBUF = RCRD_ERR_FAO(R11)7- ; the output strin ‘ 
1162 4684 Pi = R2,- 3; length of invalid record 
118 reed P2 =R : address of invalid record 
1177 4687 ; now see if we have a TPARSE error (which implies we are pointing 
1177 ret ; to the invalid token), or some other type of error (we just print 
1B 4 ree : out the error message). 
00158284 8F 55 D1 1177 4691 CMPL R5 ,#LIBS_SYNTAXERR ; is it a TPARSE syntax error? 
os te BF rt BNEQ 10$ 3 no, it is another type 
0021 31 Ng 4694 BRW TPARSE_ERR ; it's @ TPARSE error, write 
11 4695 ; the token 
11 $928 
11 4697 10$: 
11 4698 ; the syntax error was not found by TPARSE, so we don't have a token. 
\ r+ 44 3; instead, we will print out the invalid Line, and the error message. | 
55 dD 11 4701 PUSHL R5 ; write the error message 
24 AB Bei 47 § PUSHAQ RCRD_ERR_DESC(R11) ; and the invalid recor 
01 DD 1188 47 PUSHL #1 | 
00C€31130 7 DD 118A 4704 PUSHL #TCNTRLS_TEXT!STS$K_WARNING 
00000000 ' GF 4 FB 1120 of 5 CALLS #4,G*LIBSSIGNAL ; output the message 
a {4 ; ; since parsed failed, get another record and try again | 
1197 47 § 3 we may have set control bits before the parse failed. clear out 
1138 afi ; those bits and start again | 
O49B°CF 10 (CA 1197 4712 BICL2 #CASESM_FILE,CONTROL_CASE : clear file bit (may be set) 
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O49B'CF 20 CA 119 BICL2 #CASESM_ASSIGN,CONTROL_CASE ; clear assign bit (may be set) 
FrEE = 31 QRW GET_DAT_RCRD ; get a new record 


TPARSE_ERR: 
; the errer was found by TPARSE, therefore we have an invalid token. 
; we will write out the invalid string along with the invalid token. 


; initialize the descriptors to do the FAO 


SSEEREREFERERER= 


Poe Se oY ot ot ot ot ot tt ot ot ot at at a a RMU UMUMUMUMUUMUUMUMUeMUAUMeerr eee eee eee 


014C CB. ODE MOVAL TOKEN_ERR_ STR(R11),=- ; put the address in the 
0140 CB DSCSA-POINTER*+TOKEN_ERR_DESC(R11) ; descriptor 

014C CB. ODE MOVAL TOKEN_ERR STR(R11),- ; put the address in the 
0148 CB DSC$A~POIRNTER+TOKEN_ERR_FAO(R11) ; descriptor 

0108 8F 3¢ MOVZWL #<RCRB_SIZE*2>,- ; put the size in the 
0144 CB DSC$wW_CENGTH+TOKEN_ERR_FAO(R11) : descriptor 


; make error message of the invalid token 


MOVL #$TPASL_TOKENCNT+DAT_PARSE_BLK(R11),R2 ; get size for the FAO 
MOVL TPASL_TOKENPTR*DAT_PARSE_BLK(R11),R5 ; get address for the FAO 


SFAO_S CTRSTR = TOKEN_ERR_MSG,- ; the error message 
0 = DSCSW-LENGTH+TOKEN_ERR_DESC(R11),- ; the output Length 
= TOKEN_ERR_FAO(R11),- ; the output string 
= R2,- ; length of invalid token 
= R ; address of invalid token 


3 now write out the error 


PPE EEE EF WWII WII III PoNNONONNoNONn) | 


OOO NIA NE WR SO ODA NE WIN 2 9 OOD NIA UE WI 3 CO OO NIA E WWI  O ODIO NE WP OOOO Ww 
Oo 
Cc 
— 
ow 
Cc 
~” 


Ww MHMMMMMMMMoOOCVTVCVMOOOOoOWWWWIIIN> 


ee ee a ea dd dd dd 
WOMLIOVT TO WDOOOM YS OOOO 2 4 OOWOOWOOnn 


a a a ee ee a ed dd dd 
Si Bi Bin Bn Be i tit i te i ee ee ee ee ie ee ee ee 


55 D PUSHL R5 ; TPARSE's complaint 
013C CB ad st TOKEN_ERR_DESC(R11) 3; the invalid token 
00C31133 8F ODD PUSHL #TCNTRLS_TEXT!STSSK_INFO 
10 OO9E'CF FO INSV FAC_CODE ,#STS$V_FAC_NO,- : set the facility code of the 
oc 5 #STS$S_FAC_N . 3 message to be the defined 
6E 2 SP) ; facility code 
24 AB OC7F PUSHAQ RCRD_ERR_DESC(RI1) 3; the invalid record 
1 DD PUSHL # 
00C31130 8F ODD PUSHL #ITCNTRLS$_TEXT!STSSK_WARNING 
00000000'GF 07 FB re Z CALLS #7,G*LIBSSIGNAL ; write the message 
43 ; now, since the parse failed, get another record and try again 
FF 6 3 we may have set control bits before the parse failed. clear out 
43 ; those bits and start again 
ts SH 10 CA FF 6 BICL #CASESM_FILE,CONTROL CASE ; clear file bit (may be set) 
49B'CF 20 CA 308 BICL #CASESM~ASSIGN, CONTROL_CASE ; clear assign bit (may be set) 
FE86 = s 531 fs 6 BRw GET_DAT_RCRD ; get a new record 


<- 
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crt END_GET_PARSE: 

crs ; all done parsing, exit with success 

aif? MOVL #SS$_NORMAL ,RO ; successful exit 
2599 RET 


<- 
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-SBTTL State Table for Data File 
SINIT_STATE DAT_FIL_STATE,DAT_FIL_KEY 


: start state. look for a keyword, a comment, or a blank Line, 
; anything else is an error, so signal it and get the next Line. 


SSTATE ST 
STRAN "Y®' RUN PROC » CASES FILE gCONTROL ASE 

$TRAN tHe? *TPAS EXI fee RSESM sh NXT T RCRD PARSE _FLAGS 
$TRAN ‘LOG (LOGEIL Asé ahs ° gh0G.% 

STRAN ‘NAME! GENERTC ASG, A NAME. ASSTGN 

STRAN ‘START! GENERIC ASG. noe Nera ASSIGN, ee se 
STRAN 'STOP',GENERIC_ASG, -ASSIGNSM_ STOP, ASSIGN CASE 
STRAN '‘COMMENTS' ,GENERIC_ASG, ,ASSIGNSM_COM ASSTGN N CASE 
STRAN ‘MAX E* TIME ASG, ,ASSIGNSM_TIME Agere 

$TRAN PARALLEL ,GENERIC_ASG, ,ASSIGNSM_PAR JON gas CASE 
STRAN '!" TPA fill PARSESH cel ttt pRbRD-PARSE.FLA AGS 
STRAN ‘EXIT’, TPAS EX KET EOF CONTROL_CASE 

STRAN TPAS "6s, TPR EXIT C PARSE M_GET NAAT “RCRD. PARSE_FLAGS 


; get ready to parse the filespec, but first see if the process can 

3 run with others, or if it must run alone, PARSESV_PROC_RUNS_OTHERS 
; is set to be zero (meaning that it doesn't run with others) Unless 
; it is changed here. 


SSTATE RUN PROC 

STRAN ‘Y®*, CHCK =f ILESES. -PARSESA_ PROC _RUNS_OTHERS ,PARSE _FLAGS 
STRAN ‘Ne’, CHCK-FILESPC 
fi 


: see if there is a filespec there before we ory and peree one. Null 
; filespecs are legal syntax, but we flag that it is nul 


SSTATE CHCK_FILESPC 
it TPAS_EXIT, CRTPRCSH NULL, CREATE_PROC_CASE 

ST RAN TPA$_EOS;TPAS EXIT $M_NULL, CREATE ~PROC_CASE 

STRAN TPA$ ~EARBDA EXPLICIT. BLANKS 


; with blanks on, check for the blank before the filespec 


SSTATE 
STRAN TPAS_BLANK,FIND_FILESPEC 


; we are to the point where a filespec better exists or the syntax is 

; wrong. we have ret TPARSE so that it looks at aver nem “s gh " 

; will use as a delimiter ,vpless it is in a quoted str ng) will now 
: take apart what we think is a tleeses Hi Pe send that ring. to RRs 

; SPARSE to confirm whether or not it is a filespec. 


SSTATE FIND FILESPEC 
STRAN !FILE_SPEC,,IMPLICIT_BLANKS, ,SPEC_DESC 


; we have a string which we think is a filespec, call action routine 
; which uses SPARSE to confirm it. 


SSTATE 
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] } : § STRAN TPAS_LAMBDA,FINISH_LINE,PRS_FILE_SPEC 

} : : ; OK, we have a valid filespec, now finish parsing the rest of the Line 
1210 4840 SSTATE FINISH LINE 

1210 4841 STRAN '‘!' TPK -EXIT. GET COMMENT 3; get associated comment 

1210 4 46 STRAN TPAS. _EOS7TPAS EXIT 

! : re rb STRAN TPAS_ANY,GET_PARAM,,,DELIMIT 


<+4 
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1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
! 
13 
1 
1 
1 
1 
1 
1 
1 
! 
13 
12 
12 
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: ates to parse out the Einat ter s rings the delimiters may be any 
: aracter except ie A one net on point - when we get here the 

3 rst delimiter is in 

SSTATE GET_PAR 

AN TPAS PEAABDA, .EXPLICIT. BLANKS 


st 
ch 
fi 
STA 
$TR 
; while accepting blanks, take every character as being valid. the 
ac 
TAT 
TRAN 
ac 
bl 


$ 


tion routine copies the parameter List into a buffer 


$ 
$ !PARAM_STRING, ,COPY_PARAM 

; accept the last character (it is the ending delimiter) and ignore 
3; blanks again 

SSTATE 

STRAN TPAS_ANY,,IMPLICIT_BLANKS 

; see if we have a comment, else leave 


E 
RAN '!" TPAS EXIT. GET_COMMENT 
STRAN TPA$S_EOS;TPAS EXIT 
STRAN TPAS-LAMBDA, TPAS_FAIL 


: this is the subexpression to accept every character which — a. be in 
: the parameter string. it calls an action routine which checks to 
; see if the character is a delimiter or not. 


Oe a et a a a a ad 
OOCCCOCOCOCOCOC COCO OOOCOOOOOO OOOO OOOOOOO 


Fat at at at at aM UMUMUMUMUMUAUMMUMUMMAUMAUMAMAAMAMmMAmMMMee 
NN NNN NNN AA AAAA AAA MINIM 
WONAUNE WN ODDNAU.E WR OOONOUSWN OOo 


ING, TST_DELIM 
XIT 


onn 


Te 


a ee ee SE ee es 
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a a sn — — > os — > os — as 2s os 2s — 2 _ > — 2s 2s 2 ts ss tt 


Os wt 2 — FF a — ss — os — os —) bs 4) Ls —) —) 2s Ls 6 ts a ts et 


COOCCOCOOC COCO OCOOOCCOOCOCOOOOOOOOoO 


Fe ot ot ot ot ot at ee MUNN NaN UMUmUmAMmUmmMummmummmmawe 


COwOOOOOOOOOOOOOOOO OW 


SS (QDOOCOOOOOOOCWOOOOOOOOOO 


1 


NAMES AN SO ODNAUE WIN 0 OO NAUE WN OOONOUS 
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subexpression to get the file spec ies & successful completion 
f this subexpression does not neccessarly guarantee that the string 
s indeed a filespec. this routine pulls out characters that may be 
a filespec and then sends them to SPARSE to make sure. 


SSTATE FILE SPEC 
STRAN '''',Q STRIN 
TRAN !NON_BELIMI 

STRAN TPAS_LAMBDA 


SSTATE 
STRAN TPAS_ANY,FILE_SPEC 


; see if we have a valid quoted string 
$STATE Q_STRING 
STRAN '"' GET 
STRAN TPA$_ANY,G_STRING 
; now, collect the rest of the supposed filespec 


SSTATE GET_REST 
STRAN ' 


T 
, TPAS_EXIT 


3; collect all non-delimiters 


**° TPAS_FAIL : only 1 pair of quotes allowed 
$TRAN !NON_DELTMITER 
STRAN TPAS-LAMBDA, TPAS_EXIT 


SSTATE 
STRAN TPAS_ANY,GET_REST 


3 a setae to determine whether the token is a valid delimiter 
3 or no 


SSTATE NON_DELIMITER 
STRAN TPAS_EOS, TPAS_FAIL 
STRAN '!' TPAS’FA 
$TRAN TPA$ BLANK, TPAS_FAIL 


STRAN TPAS_LAMBDA, TPAS_EXIT ; anything else is a non-delimiter 


TS 
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; State tables for the various assignment statements 


; we have an assignment to change the name of the logfile. parse 
; out the filename 


SSTATE FOF IL 

$TRAN VERPLICIT BLANKS , CASESM_ASSIGN, CONTROL_CASE 
SSTATE 

STRAN TPAS_BLA 


$TRAN TPAt: “Eos. TPAS. FAIL 
STRAN TPAS-LAMBDA 


i HL 
$TR 'FILE_SPEC,,IMPLICIT_BLANKS, ,SPEC_DESC 


ot the filespec, now SPARSE it and put it in the right place and 
gnore the rest of the Line 


SSTATE 
STRAN TPAS_LAMBDA, TPAS_EXIT,PRS_FILE_SPEC 


3; we have a ppaerss assignment, so just parse out the string and 
; put it in the proper buffer 


SSTATE GENERIC ASG 
STRAN ‘=',,,CASESM_ASSIGN,CONTROL_CASE 


ag 
STRAN TPAS_SYMBOL,TPAS_EXIT,GET_ASG_VAL 


: we have an assignment for the time, so parse out the time and 
3 convert it to system time 


SSTATE TIM EA SG 
STRAN ‘=",,EXPLICIT_BLANKS, CASESM_ASSIGN, CONTROL_CASE 


SSTATE 

STRAN TPAS_BLA 

STRAN TPAS EOS NT PAS FAIL 
STRAN TPAS"LAMBDA 


ag SK. 
STRAN !GET_TIME_STRING,, IMPLICIT_8LANKS,,TIME_DESC 


; we now have the time string, send it to convert time via 
3; an action routine 


ec ee ee ee a ce cee ee ec a a ae ce a i ce ee ce ce ce ce ce ce ce ce a ce ee ec ee a ee a ee 
POPIPIPIPIPIPIPOAIMYNIPINIPIPINPINIPININPIPIPININPINPIPINPIPIPIPYUNPINPINPIPININY 

tuiubabl«babubabablibabubiubeabababumbuababwiichiuiiabuabububabababebabababababaiababuababad abate ane aaa 
SOOOCCOCOOOOCOCCOOOCOCOOCOOSOSCOCOCOCOC OOOO OOO OOOO OOOOOOOOOOOOOnD 
OOD NAME WIN 0 OO NAME WN O ODNAU EWI = OOWONAU EW OO OODNOUS Win" 00 


ATE 
SSTRAN TPAS_LAMBDA, TPAS_EXIT,CONVERT_TIME 


TS 
vO 
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1310 done ‘Be 

121 1998 : Souprees rane to get the tine y Ai 5 we will parse out anything 
121 138 : up to a blank, or if there is a double quote, we will parse out 
1210 497 ; the entire string with the quotes (including blanks). this is 

: } 1358 ; to keep with VMS standard. 

1210 4980 : once we have the time string, we will then send it to an action 
1210 4981 ; routine to convert the time into system format. this action routine 
: : 3 ¢ ; uses the RTL function CVT_TIME also according to VMS standard. 
1310 498s as 

121 tens SSTATE GET_TIME STRING 

1210 49 $TRAN Es “QUOTED TIME_STRING 

1210 4988 STRAN !NON_DELIMITER ~ 

1210 4989 STRAN TPAS_ ~DANBDA.TPAS. EXIT 

1313 332 sstare 

1510 reat STRAN TPAS_ANY,GET_TIME_STRING 

1310 4994 

1319 4995 : subexpression to parse a quoted time string 

1310 2999 ; 

1210 4998 SSTATE QUOTED_TIME_STRING 

1210 4999 STRAN ‘'' TPAS_EXTT 

1210 3000 STRAN Tpag. _ANYTQUOTED_TIME_STRING 

1210 5002 SEND_STATE 
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¢ ; here are the action routines for the various transitions. 


7 
7 


EXPLICIT_BLANKS: 
“wORD * 


0000 M<> 
ei 
: action routine to set TPARSE to accept blanks 
04 aC 01 C8 BISL2 #TPASM_BLANKS,TPASL_OPTIONS(AP) ; turn on blanks 
RET 
IMPLICIT_BLANKS: 
0000 ~WORD “M<> 


= $e 


: action routine to set TPARSE to ignore blanks (its default) 


04 AC O01 CA 
04 


BICL2 #TPASM_BLANKS,TPASL_OPTIONS(AP) ; turn off blanks 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
04 1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 RET 


— 2 ss 8 2 
DFO OO00 000 9NNNNOOARNNNNNINNVOOCCOO 
PUPPET 

WA WAROPononofnronononofnongd 2 3 2 23333 

MR OOONOUSUN—COOONOULWN—OOO 
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03 50 
008D 


OA30'CF 
OB A2 
077D°CF 
40 A2 
0888'CF 
38 A2 
0884'CF 
44 A2 
0890'CF 
9A 
088C CF 
4 &e 
0898' CF 
3A A2 
0894 'CF 
4C A2 
a 
ode er 


50 A2 
7 
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000c 


E8 
31 


ee ce ee ee ce ee em me a ed ed ed od dd 8 ed ed dd 


1 
| 
4 
4 
4 
4 
4 
4 
4 
4 
& 
4 
4D 
$8 
53 
56 
59 
59 
5 
5 
6 
6 
6 
6 


| 
: 


#4 


SSNS SSID DDD DID DADA BEE EEE 


COOODGOCOCOCOCOOCOOCOOCOCOSC OOOO SOOOOOOOOOOOOOOCOOOOOOoOO 


PUPP LSP VLVLVLVLVLVLVLVSULULIUSVLVSVSUSVSUSUSIVSVSIUSVSTSTSTSTSISTIOSIUIIOI 


O00 000000 09 00 C0 0D CD CD 


¢ PRS_FILE_SPEC: 


SWORD “M<R2,R3> 


fields 


SFAB_STORE FAB = PRSE FILESPC FAB, ~ 
FNS 
SPARSE FAB = PRSE_FILESPC_FAB 
BLBS RO, COPY_FILESPEC 
BRW END_PRS_FILE 
COPY_FILESPEC: 


3; the parse was successful, 


EVICE_DESC*DSC$A_POINTER 
MOVZBW ets BEV(R2),- 
DEVICE_ DESC*DSCSW_ LENGTH 


ILENARE DES \BSCSA_POINTER 
MOVZBW NAR ARE (R2), = 
F LLENAME DESC+OSCSw_ LENGTH 


MOVL §-NAMSL_TYPE(R2),- 
TPE BESC+DSC$A_POINTER 
MOVZBW NAMS$B TYPE(R2),= 


SONA EWI 3 FO OD NO NEW 9 OD NA NE WWIN SO OD NA NEWT @ 0 ODNOU ES UI 0 ONO 


WYPE “BESC#DSCSU_. LENGTH 


AX/VMS Macro V04- on” 
UETP.SRCJUETPHASOO.MAR; 1 


"SSEP=1984 04:26:03 


; adjust the FAB to point to this filespec 


now copy nt mala le 


; RMS SPARSE has put the resultant string 
MOVAL PRSE_FILESPC_NAM,R2 
MOVZBW NAMSB ESL(R2) 

FILE_SPEC “DESE+DSCSW_ LENGTH 
MOVL NARSL NODE (R2),- 

NODE ESC eDSCSA_ POINTER 
MOVZBW NAM$B_NO ) 

NODE _BESC+DSCS$W_LENGTH 

MOVL WARSI, DEV(R2) 


MOVL NAMSL_DIR(R2) 

DIRECTORY D st+DSCSA_ POINTER 
MOVZBW NAM$B_D 

DIRECTORY “DESC *DSCSW_ LENGTH 
MOVL NARSL NAME (R2 


———-—_—_—_{ 


: action routine to use RMS to SPARSE the filespec (pointed to by 
; the token pointer) and to fill in the descriptors of the various 


i 
@<SPEC_DESC+DSC$A_POINTER>,- 
SPEC_DESC+DSC$W_LENGTH 


3 now, parse the filespec 
; OK, fill in data area 
; if error, then exit with status 


into ane qeneeriptors 
n FILE_SPEC_S 


; get the NAM block 
; put the size in the descriptor 


; fill in the node descriptor 
; «ee location 
> ee. and size 


; fill in the device descriptor 
; eee Location 
; eee and size 


; fill in the directory descriptor 
; «e. location 
> ee. and size 


; fill in the filename descriptor 
; «ee location 
> eee and size 


; fill in the type descriptor 
; «+. location 
>; ee. and size 


a 


SS 
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1289 91 
54 A2 DO 1289 92 MOVL NAM$L_VER(R2),- : fill in the version descriptor 
an 4 128C 98 VERSION DESC +DSCSA_POINTER 3 «ee location , 
DA2 9B 128F 94 MOVZBW NAM$B_VER(R2),- 3 ee. and size 
OBAC'CF 3@ 39 VERSION_DESC+OSC$wW_LENGTH 
1295 39 DETERMINE_TYPE: 
1 Be B38 
! 32 244 ; determine what type of file it is 
} 32 191 ; if file is a log file, skip type ckeck 
31 O4A7'CF 00 «£0 ! $3 198 BBS #ASSIGNSV_LOG,ASSIGN_CASE,PRS_FILE_SUC ; log file, skip type check 
OBAS'CF 29 1298 5105 CMPC3 TYPE_DESC+DSC$W_LENGTH,- 3; check the type of this filespec 
O8A8'DF 129F 2186 @<TYPE_DESC+DSCSA_POINTER>,- 3 against that’ for i 
0504'CF } A 2132 EXE_STR z an image 
08 12 : Ae 2199 BNEQ 10$ 3 wasn't .EXE 
O49F'CF O01 CB 12A7 5111 BISL2 #CRIPRCSM_EXE,CREATE_PROC_CASE ; say that we have an image 
001D 31 12aCc ale BRW PRS_FILE_SUC ; exit with success 
12AF 511 
12AF 5114 10$: 
: ~! a3}? ; wasn't an image, is it a command file? 
OBAS'CF 29 12AF 5117 CMPC3 TYPE_DESC+DSCS$W_LENGTH,- : check the type of this filespec 
O8A8'DF 1283 5118 a<TyYPE DESC+DSCSA_POINTER>,- 3; against that for 
0508'CF 1588 $120 COM_STR 3 @ command procedure 
08 12 1289 : 1 BNEQ 20$ 3 wasn't .COM 
O49F'CF 04 (C8 1566 1 : BISL2 #CRTPRCSM_COM,CREATE_PROC_CASE ; say we have a command procedure 
0009 = 31 He 124 BRW —-PRS_FILE_SUC : exit with success 
12C 126 20$: 
13¢3 H f 3 wasn't a command procedure, so we have a bad file type 
50 00000000°8F 00 12C¢ 129 MOVL #RMS$_TYP,RO ; not a valid type 
03 (11 cA ; BRB END_PRS_FILE t exit with error 
c¢ : PRS_FILE_SUC: 
! 33 } ¢ ; all done, so return success status and leave 
50 01 00 : 35 ! 8 MOVL #SS$_NORMAL ,RO 3; return success 
10CF 5138 END_PRS_FILE: 
12CF 5139 
04 12CF 140 RET 3 exit 
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12D 142 CONVERT_TIME: 
0000 12D 14 «WORD “M<> 
12D 144 
158 8448 ‘i 
12D 123 : this action routine takes the time string just parsed out (and 
12D 14 ; whose descriptor phouse - $s gene in TPARSE's Poraneter block) 
12D 14 3; and sends it to the RTL function CVT_TIME. CVT_T wil 
12D 15 ; determine if the Ahi! is acceptable, and wilt” to E. the 64-bit 
12D 13] 3; binary system time if it is 
12D 1 § : 
15 134 rs 
O9D5'CF 7F 12D 155 PUSHAQ rine “VaLue ; where the system time goes 
O9CD'CF 7F 1206 138 PUSHAQ ; the descriptor of the time string 
00000000'GF 02 FB } of 4 CALLS BRL aSCVT _DTIME : convert the time 
04 1261 5159 RET 3; return with status 
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003¢ 


BO 


28 


D0 
04 


"$o$Eb=198e 84:26:08 EUETPSSRCSUETPHASOD-MAR: 1 


12E 161 GET_ASG_VAL: 

! ; ! «WORD “M<R2,R3,R4,R5> 

1ee 8163 +. 

12E4 196 : this action routine is used to copy a ‘‘generic’’ assignment value into 
12E4 516 ; the proper parse buffer. in order for an assignment to be considered 
12E4 198 ; generic, it must be a simple character string which needs no further 
12E4 1 3 parsing. 

12E4 5170 ; 

ant ae 

12E4 158 MOVW TPASL_TOKENCNT (AP) ,= ; put the size in the descriptor 
E7 17 ASSIGR_VALUE_DESC+DSC$W_LENGTH ;: field 

12EA 198 MOVC3 TPASL_TOKENCNT(AP),- ; and move the string there 
12ED 517 @TPASC_TOKENPTR(AP) ,=- 

: cE 178 ASSIGN_VALUE_STR 

: i 2180 MOVL #SS$_NORMAL ,RO ; return success 

12F5 5182 RET ; and exit 

12F6 518 
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185 COPY_PARAM: 


12F 
003¢ } ; | § -WORD “M<R2,R3,R4,R5> 
Ht 
; } 
12F 190 ; this action routine is used to copy the parameters associated with 
12F 191 ; the current filespec into a buffer. it also determines what type 
| ‘ 13 ; of process the filespec is and sets the proper flag to signal this. | 
158 8195 a | 
12F 138 ; well, we have parameters so first find out what type of file 
: 4 13 ; we have and set the proper flag saying that that file has parameters 
: : 199 ; check for valid file types 
OB O49F'CF 00 E4 12F 01 BBSC #CRTIPRCSV_EXE,CREATE_PROC_CASE,EXE_P ; is it an image? 
OD O49F'CF O02 €4 ! ff ¢ BBSC #CRTPRCSV_COM,CREATE_PROC_CASE,COM_P ; is it a command procedure? 
! Oe Be ; it is not a file type which allows parameters, so exit with error 
50 Bt 1304 ; 6 CLRL RO ; signal an error 
0021 1 1306 0 BRW END_COPY_PARAM ; and leave 
1309 $309 Exe_p 
: 43 : 1? ~" 5s it is an image with parameters, set that flag 
O49F'CF 02 gs 1309 5 \¢ BISL2 #CRIPRCSM_EXE_PARM,CREATE_PROC_CASE ; set image with parameters 
0008 1 ' oF 5 F BRW CONT_COPY ; and copy them 
1311 ; 15 COM_P: 
: 1 1§ ; it is a command procedure with parameters, set that flag 
O49F*CF 68 cf 1311 18 BISL2 #CRTIPRCSM_COM_PARM,CREATE_PROC_CASE ; set com. with parameters 
0000 1 ! 18 i? BRW CONT_COPY : and copy them 
1319 1 CONT_COPY: 
1319 5 § 3; Now, copy the parameters (the current token) into our parameter 
! 13 ? 3; buffer 
10 AC 28 1319 5 MOVC3 TPASL_TOKENCNT (AP) ,- 3 move the current token (the 
14 BC 131C § @TPASC_TCKENPTR(AP) ,- 3 parameter List) into our 
0948'CF ! if PARAM_STR 3 parameter buffer 
10 AC BO 1321 $ MOVW TPASL_TOKENCNT (AP) ,- ; and put the size in 
0940'CF 1324 0 PARAM-DESC+DSC$W_LENGTH : the descriptor 
: 4 § 3: exit with success 
50 01 00 ! : : MOVL #SS$_NORMAL ,RO ; leave with success 
: ° § END_COPY_PARAM: 
04 132A 8 RET 3 exit 


<- 
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1328 5240 GET_COMMENT: 
003¢ } ; é] «WORD “M<R2,R3,R4,R5> 
132d 4 p++ 
132D 44 ; 
1320 45 ; this action routine copies the comment field (at this point, 
} 4 73 3; the remainder of the Line) into the comment buffer. 
1300 5248 e- 
132D 49 
ae ie 
08 AC 28 1320 5 MOVC3 TPASL_STRINGCNT(AP) ,- ; count of remaining characters 
OC BC 1 5 aTPASC_STRINGPTR(AP) ,=- : location of remaining characters 
O6F 1'CF } ee COMMENT_STR 3 our comment buffer 
08 AC B60 1 28 MOVW TPASL_STRINGCNT (AP) ,- 3; put the size in our 
06E9'CF } : af COMMENT_DESC+DSC$W_LENGTH 3; comment descriptor 
50 01 00 : Hy 2B MOVL #SS$_NORMAL ,RO 3; exit with success 
04 133€ : 61 RET 3: and exit 


3 copy the rest of the Line into the comment buffer 
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a a Ss ss a > 4s 4 
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5 
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ws 


wun 
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=}98% 8 38:83 UETP.SRC SESPHASOS MAR: 1 ° ( 
63 TST_DELIM: 
és -WORD “M<> 
96 p++ 
°8 : action routine to determine if the current token we are looking 
$° ; at is the ending delimiter of a string. 
4 to- 
“ CMPB TPASB_CHAR(AP) ,DELIMIT ; is this character ae Ceara 
74 BNEQ 10$ 3 n0- so exit with s 
8 CLRL RO ; it is, so reject the trancttion 
8 10$: 
78 RET ; leave 
79 


<-+ 
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nitialize data structure -SEP-1 
-SBTTL Initialize data structure 


— 


0 8 4 IDS_NUMBER OF SLOTS = 
90000¢ SB ObeSCObucr = 
0000016 IDS“LIST_REABER i 


+ 
FUNCTIONAL DESCRIPTION: 


This subroutine is called to initalize the process_information 

data structure. The data structure is to be a linked List of 
individual "slots" where one slot is allocated per user. This 

routine sets up an available reservoir of free slots. The header 
points to the first slot and then the Linked List continues from there. 


NOTE: it is a requirement that structure area be a contiguous area. 
ere may, however, be seperate nenncent i qusus structure areas.) 


CALLING SEQUENCE: 


This routine is 
1 thyrg 


Lled b 
T HEADER 
IR_OF_STRUCT 
€_OF SLOT 
PUSHL ABER OF SLOTS 
CALLS ra mtn? STRUCT 
INPUT PARAMETERS: 
10S sarees _OF Leo tt -- eae is a value of the total number of slots to 
e struct 
IDS_SIZE OF SLOT CAP) -- this is a value of the size of each individual 
IDS BEGIN “OF Pedy ke tl -- this is the address of the beginning of the 


ntire 
IDS_ List® CHEADERCAP) -- = thie is the address of a quepuers which will the 
available List header for the structure (hold FLINK and BLINK) 


IMPLICIT INPUTS: 
None. 

OUTPUT PARAMETERS: 
None. 
IMPLICIT OUTPUTS: 
None. 
COMPLETION CODES: 

SS$_NORMAL 


PS a ee ee ee NS SS SSS 
oo 
Snaue 


POOOOOODOOOOOAOOOOOOAOAOOOAOOAOAOAOAAAOAOAOAIOOOOOAOAOOOOAOOAOOOAOOOAIS 


ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee eee 
Sot tal tak tek tek tal tek te al, tek el ek te tek ek hn te tek 


CN APA AA. AAA AANA AAAI AIA AAAI AIA AAI ANIA 


SOA AE WN @§ 9 OO NA UNE WN @ O OD NAUE WIN 0 OONO: ANEW SO OONAUE WN 0 OONOUS UT 


Bete Se Ge Ge Ge Ge Ge Ge Ge Se Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge te Ge Ge Ge Se Ge Ge Ge 
+ 


HAAN AAA ANAM A WAIN WIAAIAAINIAIAI AIA A AIAN AIA WII nononononononononononononon 
AAA AAA MPPPPININININININD 4 9 HF POO OCOCOCOOOOOCOCOOOOOO OOO OWMOMmcaoccN9D 


(PUPIL DVI LIV LIV IV IV IVI IV IDV IV LVL LULU IUIUIVIUSIUSIUSIVSUSVSUSVSISISTSTISISTISISIUIUIII 


- 
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STM MMMM en S HQKIMMM MM AIOAIIOran 


DPDAEXQEQQRLXALD AMA PPP LPP EE 
>>n~ o 


16-SEP-1984 01:30: AX/VMS Macro V04-00 Page 126 T 
Breet e8t BL iSR8s HAAC UMS Mare NOt OO ns Page 126, V 


3 ; SIDE EFFECTS: 
Links throughout the structure will be modified. 


INIT_STRUCT: 
«WORD “M<R2,R5,R4,R5> 


; move the parameters into registers 


MOVL § IDS_NUMBER_OF _SLOTS(AP) ,R2 
MOVL IDS"SIZE_OF_ SCOT (AP) 

MOVL § IDS"BEGIN_OF_ STRUCT (AP) .R4 
MOVL IDSTLIST_REABER(AP) ,RS 


4 

§ number of slots to init 
9 slot 

3 3; now insert the various slots into a Linked stack. The slots 
0 

4 

5 


: size of each 
3; addr of top of structure 
3; addr of structure header 


3; are inserted at the tail so that the header will be pointing to 
; low order memory and will work towards high order. 


INSQTI (R4),(RS5) ; put slot at tail of List 
ADDL RA ; get address of next slot 
SOBGTR R2,10$ 3 go through whole List 
MOVL #SS$_NORMAL ,RO 3; return success 


RET 
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ROPING M$ DOODMNODOOOO OOOO OOO OO 0000000 0909 0909 09 09 09 SINISE OO 
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WINA.ANW AWA 


UETP. re UE TPHASO OMAR: 1 
-SBTTL Expand region for more data areas 
set up offsets for the parameters 

yeper OF SLOTS 


oN 
-f6 ZE_OF SCOT 


ER 
ER 
ER-LOCATION_OF STRUCT 


4 
8 
12 


++ 
; FUNCTIONAL DESCRIPTION: 


This routine is called if it is required to expand the current 
virtual address space because the current number of slots in the 
data structure are filled. It does this by first calculating the 
number of pages needed and then by doing an SEXPREG system service. 


; CALLING SEQUENCE: 

This routine is calle 
PUSHAQ LOCATION af STRUCT 
PUSHL SIZE_OF_SLOT 
PUSHL ret OF SLOTS 

; CALLS #3,EXPND_REGION 

: INPUT PARAMETERS: 


ER_NUMBER_OF_SLOTS(AP) -=- this is a value of the total number of slots to 
be My the structure. 

ER_SIZE_OF _SLOT(AP) == this is a value of the size of each individual slot 

ER ~POCATION® OF _STRUCT(AP) -- this is the address of a quadword to hold the 
starting location (first ere: of the expanded region and 
the ending location (second longword) of the expanded region. 

; IMPLICIT INPUTS: 

None. 

; OUTPUT PARAMETERS: 

None. 

; IMPLICIT OUTPUTS: 


@ER_LOCATION OF _STRUCT(AP) will hold the starting and the ending location 
of the éxpanded region. 


; COMPLETION CODES: 

SS$_NORM 

SS$_SSF ML -- failed to expand region, system service failed 

SS$-FLTD -- gttonpt ted divide by zero (note: FAO arguments are not 
Méledel with this code). 

; SIDE EFFECTS: 

None. 
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XPND_REGION: 
~WORD “M<R2,R3,R4,R5,R6> 


@ 
Mm Se 


007c 


; move the parameters into registers 


2g 04 AC 00 MOVL ER_NUMBER_OF SLOTS(AP) ,R2 ; number of slots to init 

5 08 AC 08 MOVL ER-SIZE_OF SCOT(AP),R ; size of each slot 

54 OC AC OD MOVL ER-LOCATION_OF _STRUCT (AP) ,R4 ; addr of top of structure 
; calculate the number of pages we are to expand by 
; first see if we are going to divide by zero 

00000200 8F 05 TSTL #PAGE_SIZE ; make sure page size isn't zero 
iy 12 BNEQ 1 ; isn't zero, so continue 
50 00000494 8F 00 MOVL #SS$_FLTDIV,RO 3; tried div-by-zero, so error 
004F 31 BRW END _EXPND_REGION : and leave 


; OK, now calculate the number of pages 
10$: 

MULL3 = R2,R3,R5 

ADDL2 #<PAGE_SIZE-1>,R5 

DIVL2 #PAGE_SIZE,R5 

3; we now know how many pages we need, so do the expansion 


PoETSrA, ENBFLG = #0 


total number of bytes needed 
add another page minus 1 to 

do the A ge up 

and get the number of pages 


7 fe. oe 
55 QOOOO01FF BF CO 
55 00000200 8F C6 


errors are OK, turn failure off 


& > FS OOOO 0 OW O00 09000908 SIN NI III NINA A OOOAAOO- 
WOVUVGTVT FFE "*WWIVIVIVIOoO—- "OOVOwowvowouGV So TT779W 


ee ee ee ea a ed ad ed wd dd 2d od od 8 3 3 3 2 4 8 2) 3 2 2) 4 dD 
NNN NWN 

ESSE SNS SSSI SS SS ee ee we ee SS SSS SSS 

NNN NNSA AAA AAAAAOMUUMNMNNIN ES BEBE EEE EWWWWWIInonononon 

NOUS WN ODDNAU EWN OOD NOAM EWN O ODNAUE WN OD ONAU EWN OOO 


(DV PV LV LV LV LVDV IV LU LVL IVES V USUI USS USSU 


Ss ; 
56 D4 LRL R6 3 assume failure was disabled 
09 50 01 CMPL RO, #SS$_WASSET ; was SS failure mode disabled? 
03 12 BNEQ 20$ 3 no, so continue 
56 01 00 $00 MOVL #1,R6 3 save it to be re-enabled 
388 20$: 
38 SEXPREG_S PAGCNT = R5,- 3 expand by this number of pages 
380 RETADR = (R4) ; put results here 
52 01 00 of MOVL #SS$_NORAAL ,R2 3; assume it succeeded 
01 D1 (3 CMPL RO, #SS$_NORMAL ; did it succeed? 
07 «#13 C BEQL 30 3 yes, so exit 
52 0000045C 8F D0 4 MOVL #SS$_SSFAIL,R2 3 no, so return error 
CE 30$: 
cf SSETSFM_S ENBFLG = R6 3 set to previous state 
50 52 00 4 MOVL R2,R0 3; return the completion code 
DA END_EXPND_REGION: 
04 DA RET : and leave 
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Abort Detached Processes ~SEP-1984 


13DB 5479 -SBTTL Abort Detached Processes 
1308 868) +s 
DB 4 : ; FUNCTIONAL DESCRIPTION: 
1308 5484 ;: This routine is used to stop all the detached processes created by 
130B 5485 ; this TSTCNTRL. It does this by gotne down the current process List 
130B 54 § 3 and forng a SFORCEX on each of the processes. It will also set a bit 
130B 5487 ; (PRCINFOSV_PROC_ABORTED) in each of the processes information block. 
130B 5488 ; This bit is to signal the termination routine that this process was 
130B 5489 ; aborted prematurely. It then sets a timer to give the processes a 
| s aay 3 chance to run down before they are nuked. 
1308 49¢ : CALLING SEQUENCE: 
DB 494 : CALLS #0,ABORT_PROCESSES 
130B 5496 : INPUT PARAMETERS: 
1308 5497 ; 
1308 8499 — 
DB 3300 : IMPLICIT INPUTS: 
1308 3506 ; FLAGS == the TSTCNTRL flags 
1308 5503 ; CURRENT_LIST_HEAD == Location of the header for the List of currently 
: S abe r running processes. 
1308 5506 : OUTPUT PARAMETERS: 
13DB 5507 ; 
1308 $809 — 
DB 3310 : IMPLICIT OUTPUTS: 
1908 3312 : Sets a bit (PRCINFOSV_PROC_ABORTED) in each processes information block. 
DB HE : COMPLETION CODES: 
DB 316 : SS$_NORMAL 
1308 318 > SIDE EFFECTS: 
1 +4 5 Y : Causes the current detached processes to run down and leave the system. 
1308 . 
1308 ; : ABORT_PROCESSES: 
001C } 4 2 ¢ ~WORD “M<R2,R3,R4> 
! 4 : § 3 get the List of currently running processes 
53 4660°CF /7€E ' 43 5 $ MOVAQ CURRENT_LIST_HEAD,R3 : header of currently running 
63 05 ' (2 3 , TSTL (R3) ; RS the list empty? 
03 «12 ' e ; § BNEQ 10$ 3 no, so stop current processes 
OO3E 31 ! Es 2 : BRw END_ABORT_PROC 3; no current processes, so exit 
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13€9 § 10$: 
} 34 4 ; go through List and stop all the processes 
5 3 DO 1369 5539 MOVL PRCINFOSA_FLINK(R3) ,R2 i get offset to next slot 
54 2g $3 C1 : Ee 79 ADDL3 = R2,R3,R4 r folculete address of next slot 
! : 226 STOP_PROC: 
52. 64 = 00 1 ‘ 344 MOVL PRCINFOSA_FLINK(R4) ,R2 ; get offset to next slot 
: : 278 ; stop the next process on the list... 
1 ce 348 SSETSFM_S ENBFLG = #0 ; check this error by hand 
17he se SFORCEX_S PIDADR = PRCINFOSL_PID(R4) ; abort the process 
140A 228 ; see if process was aborted without error. if it had error, it may 
140A 555: ; be that the process was already terminated; so don't touch abort 
140A e220 3 bit 
140A 5555 
50 01 D1 140A 5556 CMPL #SS$_NORMAL ,RO ; did it abort OK? 
046 «12 ieee e22f BNEQ 10$ 3 no, so don't set abort bit 
02 C8 140F 2228 BISL2 #PRCINFOSM_PROC_ABORTED,- 3 set bit saying this process 
38 AG ba 2209 PRCINFOSL_FLAGSTR4) ; was aborted 
1413 AYE 10S: 
ete 3287 SSETSFM_S ENBFLG = #1 ; turn on failure mode 
Veit 220? 3. « »« Stopped that process, now see if there is another one 
54 52 CO 1et8 5567 ADDL2 R2,R4 ; calculate address of next slot 
53 54 01 1e1 3568 CMPL R4,R3 ; are we at the end of the List? 
03 «13 1? ; 3371 BEQL END_ABORT_PROC . > yes, so leave 
FFC9 = 31 1° $ 378 BRW STOP _PROC ; more processes left 
1427 5575 END_ABORT_PROC: 
1427 278 3; now set the timer to insure that at least one process terminates in 
1427 557 3 a specified amount of time. If the timer goes off (ie, no process 
1? 278 3; terminated), then all of the processes are to be nuked 
1427 3 0 SSETIMR_S DAYTIM = PROC_TERM_DELT,- ; set watchdog timer to insure 
1427 5581 ASTADR = NUKE_PROC_AST,-=- ; that processes start to 
1? ‘ 2 ¢ REQIDT = #ABRT_TIM_ID 3; terminate 
50 01 00 1 5 i MOVL #SS$_NORMAL ,RO 3; return success 
04 1430 5586 RET 


<- 
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143E § -SBTTL Nuke Detached Processes AST 
1e3E 8890 :+4 
143 i : FUNCTIONAL DESCRIPTION: 
143— 5593 ; This routine is called as a last resort when detached processes 
143E 5594; previously aborted by SFORCEX neve still failed to terminate. It 
143E 232 3 is called when not one er ocess oes terminated within a set waiting 
143E 38 $ time (determined by 4 _DELT_SCND This routine will go through 
143E 5597 ; the current process list and do a SDELPRE on each of the processes 
12 ; 208 3 still in that List. 
14 E 60 : CALLING SEQUENCE: 
1? ; sh : Called by AST when abort process timer expires. 
143— 5604 : INPUT PARAMETERS: 
143E 2982 3 
ot A eee 
143E 3608 > IMPLICIT INPUTS: 
143 +at4 : LAGS == the TSTCNTRL flags 
143E 29) : CURRENT -LIST_HEAD == loca len of the header for the List of currently 
Voge 2016 3 running processes. 
143 5614 : OUTPUT PARAMETERS: 
143E 5615 ; 
1 sf sea 
143— 5618 : IMPLICIT OUTPUTS: 
143E 5619 ; 
SEs @ les 
14 : 36 : ; COMPLETION CODES: 
143 368% ; SS$_NORMAL 
143E 9606 > SIDE EFFECTS: 
143E 5628 ; Aborts detached process in the middle of whatever it is doing. 
143E 5629 ; May cause detached process not to clean up when it leaves. 
Ie 88 i 
143E 3 § NUKE _PROC_AST: 

001C 143 O37 -QORD “M<R2,R3,R4> 
102 ? 5 ; get the List of currently running processes 

53 4660°CF 7E 122 ? $ MCVAQ CURRENT_LIST_HEAD,R3 3 poate ot of currently running 
: ce 
63 D5 1003 639 TSTL (R3) 3 RS the tist empty? 
03 «12 170 $4) BNEQ 10$ 3; no, so stop current processes 
0038 = =«51 yo es BRW END_NUKE_PROC 3; no current processes, so exit 


<< 
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144C $43 108: 
eee 278 ; go through List and stop all the processes 
2g 93 DO 144C 978 MOVL PRCINFOSA_FLINK(R3) ,R2 i; get offset to next slot 
54 ae 1434 €30 ADDL3 = R2,R3,R4 ; calculate address of next slot 
14 651 NUKE_PROC: 
14 65 ve 
iC 638 ; stop the next process on the list... 
1433 gee SSETSFM_S ENBFLG = #0 ; check this error by hand 
143 63 SDELPRC_S PIDADR = PRCINFOSL_PID(R4) ; abort the process 
146 $39 ; see if process was aborted without error. if it had error, it may 
re ree ; be that the process was already terminated 
50 «(01 Di 146 O96 CMPL #SS$_NORMAL ,RO ; did it abort OK? 
00 12 1468 566 BNEQ 10$ i: no, so don't set abort bit 
166d 5665 108 
1390 2096 ; SSETSFM_S ENBFLG = #1 ; turn on failure mode 
1328 see8 3 « « « Stopped that process, now see if there is another one 
52. 64 00 1476 5670 MOVL PRCINFOSA_FLINK(R4) ,R2 i; get offset to next slot 
54 52 CO 100? 14) ADDL2 = R2,R4 ; calculate address of next slot 
27 es 4 5678 CMPL R4,R3 3; are we at the end of the List? 
oe Vout ser BEQL END_NUKE_PROC 3 yes, so leave 
FFCF 31 1481 $99 BRW NUKE _PROC ; more processes left 
12pe 5678 END_NUKE_PROC: 
OES | Dept ite sepa aang ar 
O4A3°CF 00010000 8F CB 1484 oR BISL2 M#TCNTRLSM_PROC_NUKED,FLAGS ; set flag saying processes have 
1250 ret ; been nuked 
50 01 00 1388 tt MOVL #SS$_NORMAL ,RO 3 return success 
04 1490 3686 RET 
1491 5687 


<-_ 


F11 
TSTCNTRL TEST PACKAGE CONTROL PROGRAM 16*SEP=1986 01:30:05 VAX/VMS M 4- 
v04=000 Process Termination AST ~SEEr1S8e Bl:50:88 FORTUMS Macro VOR OO ast 


ss -SBTTL Process Termination AST 

FUNCTIONAL DESCRIPTION: 
This routine is called when a currently gag ety detached process 
terminates. The kerpinated process sends a mailbox message back to the 
the TSTCNTRL and notification of that mailbox sends control here. 
This routine then locates the process info slot of the terminated 
process, removes it from the current process List, fills it in with 
process termination info, places it on the completed process List, 
and signals that a process has terminated. 

CALLING SEQUENCE: 


This is called as an AST routine when a termination mailbox is 
received. 


INPUT PARAMETERS: 
None 
IMPLICIT INPUTS: 


The termination mailbox. 
CURRENT_LIST_HEAD = header pointing to the List of currently running 


sses. 
COMPLETE Q HEAD - header ge to the queue of completed processes. 
PROCESS_TERM_IOSVB = the IOSB for the terimination mailbox 


OUTPUT PARAMETERS: 
None 
IMPLICIT OUTPUTS: 


CONTROL_CASE = the set of flags to determine which case statement to 
perform next. 


COMPLETION CODES: 
None. 
SIDE EFFECTS: 
wilt modify both the current process list and the conptote process queue. 
change the control of the main case loop by setting the 


CASESV_PROC_TERM flag. 
If unable td find process info slot, it will not set CASESV_PROC_TERM. 


Se Ge Ge Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Ge Fe Ge Ge Ge Se Ge Se Ge Ge Ge Ge Ge Ge Ge Ge Se Se Ge Se Ge Ge Ge Ge Sete Ge Se Fe Ge Ge Ge 


PROC_TERM_AST: 
.QORD “M<R2,R3,R4,R5.R6,R7.RB,RI,R10,R11> 


MOVAL SSERROR, (FP) ; declare except ton handler for 
; this routine 


OFFC 
6D 15B35'CF ODE 


me ee ee ed a a a ee td ot od ot 4 8 = 8 8 = = A 2 —  — 
BO BOB BB BB BB BB BB BB BB BB BB BPP PPP PPP PPP PEP PPP PPP PLES 
OMDOOOOVO OVO VOOO OOO OOOO OOOOVOO OOOO OOVOOVOVOOVOVOOVOVOOVOVOVOOVOVOOVOOODOOOOOSO 


CO a at at th hh hh 
aaa NNN NIA AAA AOA AOOO 


BBB BB BIA AI UPD NIPUNPINPINPNIDY) 2 BODO OOOOCOOCOCOCOOOOOWOWOOWVODO 
DEW OOD NAN EWI $$ O OD NA UNE WIN 9 OD NOU EWN 0 OD NOU EWN 0 OONOUES WOO 


PV DPVPVDVPVPV LVL LVL LVDVLTLIVLIVLVIVLVLVLIVULUSUSIVIVSV SUSU SISSON 
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149 4 
149 tt ; see if the Q10 to the mailbox has been canceled or aborted 
149 ote ; the Q10 may have been canceled if it came during the exit handler, 
198 fe ; if this is the case, ignore the Q10 
B1 149 7? ? CMPW #SS$_ABORT,PROC_TERM_10SB ; has Q10 been aborted? 
12 1490 57 § BNEQ 3 no, see if canceled 
31 149F 57 BRW END_PROC_TERM_AST ; yes, exit 
1M 3188 sos 
Bl 14A 736 "  CMPW ss #SS$_CANCEL,PROC_TERM_10SB ; has Q10 been canceled? 
1¢ 14A a BNEQ 20$ 3 no, so gont inue 
31 1448 57 8 BRW END_PROC_TERM_AST ; yes, exit 
leak 8700 208: 
Vent oe) : ; now, find the process info slot for this particular process 
DE 14A 38 MOVAL TERM_BUFF,R11 ; get address of termination 
178 pee : mailbox 
DD 148 5766 PUSHL ACC$L_PID(R11) 3; find slot for this PID 
7F 1486 576 PUSHAQ CURRERT_LIST_HEAD ; look for it in this List 
FB 1288 iS CALLS #2,FIND_PROC_SLOT : and find the slot 
cer 2770 ; see if we were able to find the slot 
D1 14BF 2778 CMPL #SS$_NORMAL ,RO ; did it find the slot 
13 Wt oe? BEQL 30$ 3; yes, so continue 
31 te | ae BRW END_PROC_TERM_AST 3; no, so leave without setting flag 
14C7 5777 308: 
14C7 5778 3 we now have the address of the slot, the status was returned in 
tt 4 Ae ; RO and the address of the slot in Ri 
dO eH 781 MOVL R1,R10 3; save address of slot 
14CA 57 § 3 now, remove the slot from the current List and put it at the 
14CA 5784 3 tail of the Songs eces git we must remove the slot by the 
14CA 5785 ; gy Ay equst ons: BLINK(FLINK(SLOT)) = BLINK(SLOT) and 
14CA 7 § 3 FLINK(BLINK(SLOT)) = FLINK(SLOT). 
14CA 57 3 since the values in the FLINK's and BLINK's are offsets, we must 
126A 4 3 ; calculate the actual addresses and then calculate the new offsets 
DO 14CA 5790 MOVL PRCINFOSA_FLINK(R10) ,R2 ; get offset to forward struct 
C1 ots 44! ADDL3 = R10,R2,R3 ; get addr. of forward structure 
DO 1401 38 MOVL Pog TNE OSA BLINK (RIO) AA : get offset to backward struct 
1 1903 ay ADDL3 = R10,R4,R5 3 get addr. of backward structure 
1609 Pes : now calculate new offsets and change Links 
C3 1409 re SUBL3 R3,R5,R6 : calc new offset of back. struct 
dD0 1400 579 MOVL RO, PRCINFOSA_BLINK(R3) : put offset of backward struct 
it 691 : in BLINK of forward structure 
C3 1461 2 SUBL3 R5,R3,R6 ; calc new offset of for. struct 


<- 
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65 56 00 . 3 MOVL R6,PRCINFOSA_FLINK(RS) ; put offset of forward struct 
; ; in FLINK of backward structure 
; 3; Now put the slot on the tail of the completed queue 
4658'CF 6A 5D : INSQTI (R10),COMPLETE_Q_HEAD ; put slot at end of complete queue 
; ; now move items from the termination mailbox into the process info slot 
08 AA 04 AB DO } MOVL ACCSL_FINALSTS(R11) ,PRCINFOSL_FINALSTS(R10) ; the final status 
10 AA 10 AB 7D : mova ACC$Q_TERMTIME(R11) ,PRCINFOSQ_TERMTIME(R10) ; the termination time 
18 AA 2C AB 00 : MOVL ACCSL_CPUTIM(R11) ,PRCINFOSL_CPUTIM(R10) ; CPU time used 
1C AA 30 AB” DO f MOVL ACCSL_PAGEFLTS(R11) ,PRCINFOSL_PAGEFLTS(R10) ; page faults incurred 
20 AA 34 AB) DO § MOVL ACCSL_PGFLPEAK(R11) ,PRCINFOSL_PGFLPEAK(R10) ; peak page file usage 
24 AA 38 AB DO 6 MOVL ACCSL_WSPEAK(R11) ,PRCINFOSL_WSPEAK(R10) ; working set peak 
28 AA =3C AB DO MOVL ACCSL_BIOCNT(R11) ,PRCINFOSL_BIOCNT(R10) ; buffered 1/0 operations 
2C AA 40 AB DO MOVL ACCS$L_DIOCNT(R11) ,PRCINFOSL_DIOCNT(R10) ; direct 1/0 operations 
30 AA 48 AB) 7D mova ACC$Q_LOGIN(R11) ,PRCINFOSQ_LOGIN(R10) ; time process logged in 


; we are all done here, signal for control to go to the process 
; termination routine 


BISL2 #CASESM_PROC_TERM,CONTROL_CASE ; handle the terminated process 
; Now activate another read to get the next termination mailbox 


O49B'CF 04 C8 


kk a a at tt at a a ss — a — a — a — 2s — a — 8 a 2 a — a 9 a 4 2 2 


=O NA MEW 9 OD NIA NE WIN  O OD SAE WIN SO OONOA NEW OOOO 


VB BBB BBE EE ANNI IAI IIR PPPIPONPNPONINYN 2 OO OO oe 


PDD ES BE BE BN a a Ss Ss SS 


$Q10_S CHAN = MBX_CHAN,- 3; try & read another mailbox 
FUNC = #10$_READVBLK,- 
ASTADR = PROCTERM_AST,- 
10SB = PROC"TERM~1CSB, - 
P1 = TERM _BUFF,- 
P2 = #MAICBOX_SIZE 

END_PROC_TERM_AST: 
SWAKE_S ; wake up and service this 
terminated process 
50 01 00 MOVL #SS$_NORMAL ,RO 3 return success 
04 RET 3; return to where we were 


<a 


——_—__ 


111 
TSTCNTRL TEST PACKAGE CONTROL PROGRAM 16SEP=1984 01:30:05 VAX/VMS Macro V04-00 Page 13 
v04-000 Siok ieaaams cen wSeer 188s BL:58:88 FORTUMS Bacco NOkA GO, Page 136, 


35 -SBTTL Find Process Slot 
; define offsets for parameters 


FS_LIST af AOER = 4 
FS"SLOT-PID = 8 


80000008 


++ 

; FUNCTIONAL DESCRIPTION: 

This routine is called from the AST routine PROC_TERM_AST and it is 
used to 90, sequentially through the Current Process List to find the 

the slot which corresponds to the process which just terminated. It 

does this by checking the PID's from the Current Process List with that 

of the terminated process until it finds a match. It then returns the 

address of the slot in Ri. 

; CALLING SEQUENCE: 

PUSHL PID 

PUSHAQ CURRENT_LIST_HEAD 

CALLS #2,FIND_ PROC “SLOT 

; INPUT PARAMETERS: 


: FS_LIST_HEADER sar - address of the header of the Current Process List 
3 FS-SLOT_PID(AP) - value of the PID of the completed process 


¢ IMPLICIT INPUTS: 

; None. 

; OUTPUT PARAMETERS: 

; None 

; IMPLICIT OUTPUTS: 

: R1 holds the address of the slot of the just completed process 
; COMPLETION CODES: 


WOOO O00 0969 0960 09 69 09 09 09 SII SINS NNN OA AAA A AAA A MUNIUNIUIUIUIUG 


NAME AN SO OO NA UE WIN SO OD NOUS WIN OOO NAME WW OOONOULE WW 


S$S$_NORMAL 
SS$_NOSUCHSEC = we couldn't find the specified slot in the data structure 
; ; SIDE EFFECTS: 


0; Z. None. 


ee a ed ad ed dd 8 ws = 8 8 2 2 


NN ee eee nal ah sh dh Ah dh db Ah db Ab dh dh Ah dh dh dh dh dh dh db dh ah dh ah dh ah ah ah ah eh ha 


PUPPY PV PV PUPP PVPV PU ITDVSUSVSVIUSPV IV SIUSV SUSU SUSUSUSUSTSUSISTSUS ISIS SIS STIS SIS TST 
*DWOWDD OOOO DOOVOOVOOOODOOOOOODOOODODODODODODODOODODODOOODODODODOODOOOOOOO00O 


9 
308 
9035 FIND_PROC_SLOT: 
: <QORD “m<R2> 
$ ; get the address of the current process List, this will be the base 
2 3 MOVL FS_LIST_HEADER(AP) ,R2 ; base of the List 


SrSEP-198¢ 4:26:08 Wetpesaciverenasoo-mar:1 29° (5) 


TSTCNTRL ] ST PACKAGE CONTROL PROGRAM 
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Find Process Slot 
62 0 D1 6155 1 CMPL #0, (R2) ; is the header empty? 
98 3 i 62 BEQL SLOT_NOT_FND i yes, then no stot “ 
1564 4 10$: 
| oe aie ; now calculate the address of the next slot 
52. 62 CO 1 3 318 ADDL2 PRCINFOSA_FLINK(R2) ,R2 ; this is start of next slot 
1387 $18 ; see if we are back to the header 
04 BC 36 D1 1567 3 0 CMPL ors of en greAmenten) 3; are back to the header? 
10 13 68 3 1 BEQL ear : yes, and we didn't find the slot 
156D 59 : ; we have a valid slot, so check the PID and see if it is the one 
1380 4 2 3; we want 
OC A2 08 AC Di 1560 59 CMPL FS_SLOT_PID(AP) ,PRCINFOSL PID(R2) ; is this th ight slot? 
FO 12 1342 9 ; BNEG 6108S s jh, etree 
132% 23 ; ; we found the slot we were looking for, get the address of it 
51 52 00 1574 5931 MOVL ; return the address of the slot 
50 =—O1 0 1577 59 § MOVL eek NORMAL ,RO 3; return success 
001A 31 132A 933 BRW END_FIND_PROC_SLOT : and leave 
157D $38 SLOT_NOT_FND: 
157D 5936 ; we went through the entire data structure and didn't find the right 
1570 5937 ; slot. Something must be very wrong. Write out a message and return 
1320 oa8 3 an error status. 
1320 329 ; write out an error message 
sia, af 1320 acs 4 tig DATSTRUC.. ERR i an error with the data structure 
00C31130 8F ODD 1383 2068 PUSHL #TCNTRLS 4 Fay _ WARNING 3 we can try and continue 
00000000'GF 03 FB 1382 Bez CALLS #3,G*LIB$SIG ; write the error 
1380 347 3 and return an error status 
50 00000978 8F 00 1330 $49 MOVL #SS$_NOSUCHSEC RO 3; say we couldn't find that slot 
1397 3 END_F IND_PROC_SLOT: 
04 1597 33 RET 3 and return 


<c- 
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IMPLICIT OUTPUTS: 

The CASESV_TIME_EXP bit will be set in CONTROL_CASE. 
COMPLETION CODES: 

SS$_NORMAL 

SIDE EFFECTS: 


Will cause the MAX_TIME_EXP routine to be called to stop all 
currently running processes. 


| é -SBTTL Maximum Timer Expiration AST 

p++ 
3 ; FUNCTIONAL DESCRIPTION: 
4 3 pha routine is called if the _max imum time as get ined by the 
38 8 aM a nment statement poset bang hh:mm has expired. The routine 
9 ; 3 nts out a att} , it ss ae t max-time has expired, and sets 
ae 5 the cave bit case Ps Bem then returns to the case loop 
964 ; where proper action “for the termination of currently running processes 
+t 3 will take place. 
$87 ; CALLING SEQUENCE: 
ae3 : Called via an AST when timer expires. 
971 ; INPUT PARAMETERS: 
3f6 : 
973 ; None. 
974 ; 
975 ; IMPLICIT INPUTS: 
976 ; 
977 ; None. 
af8 : 
4 3; OUTPUT PARAMETERS: 

: one. 
981 N 
9 § 3 
985 ; 
984 ; 
985 ; 
389 3 
3 3 
389 
990 ; 
991 ; 


PUP PVIVPVSVPVSVSVSVSIVSTSTSISI 
oowooon7 
oooooono 
NOUS 
t 
a 


44 TIME _EXP_AST: 


0000 TWORD = “M<> ; Entry mask 


hab 
WDODOOOOOOOOOOOOOOODOOODOODOOOOOOODODOODOODOOOOOOOOOOOOOO 


a ee ed aed et = = = 4 — = SS = = = = tS os 


Ew we eel aoa eal ah ak ah ab ah ab ab Ab Ah Ab db Ab db db db db Ab Ab Ab Ab Ab Ab Ab Ab Ah dh db Ah ah ah ah ab dh ah ab Al 


4 
6D 15B3'°CF ODE A 1 MOVAL SSERROR, (FP) :; declare exception handler for 
F § ; this routine 
oF 
oF é : ; set case bit 
049B'CF 02 C8 if $ BISL2 #CASESM_TIME_EXP,CONTROL_CASE ; case to proper routine 
A4 SWAKE_S ; do a wake to get out of possible 
re ; HIBER 
50 01 00 AF 1 MOVL #SS$_NORMAL ,RO ; return success 


<-_ 
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04 1888 6018 RET 


= PMMAMAMMHMMMMONNOO W- 
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A 
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A 
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A 
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A 
A 
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—rn 


1 
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1 
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1 
1 
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1 
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1 
1 
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1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
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1 
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Sab sb sb dpb Ab Ab Ab Ab Ab Ab Ab Ab Ab Ab Ab Ab Ab sb Ab Ab Ab sb sb Ab sb sb sb usb sbvaheal sales eal eal eal ealesieales ee ew ww ew ww www eel eal 


AN. AN ANNA NINN INI WAIN AINI WIAA AIAN NINN NII 
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3 -SBTTL System Service Exception Handler 
; FUNCTIONAL DESCRIPTION: 


stem service or RMS error occurs or 
s used to output a message. 


This routine is executed if as 
if a LIBSSIGNAL system service 

Information about this method of handling messages ors can be 

ei the VMS COMMON RUN-TIME manual and in VMS SYSTEM SERVICE 
If a severe error or exception occurs, then the TSTCNTRL begins 
currently running processes. 

If a severe error or exception 
abort process, then the TSTCNTRL gives up trying 
to run down processes and simply exits. 


CALLING SEQUENCE: 


to run down all 


the abort pro 
the exit handler. 


Entered via an exception from the system 
INPUT PARAMETERS: 


eeeeseceoeseeecen ' 
Mechanism Array 


, 


ee Se aS SS SS 
. 
, Z@eeeoeoeeoooeeee 
. 


IMPLICIT INPUTS: 


; OUTPUT PARAMETERS: 


T 
S 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
] 
D 
] 
] 
D 
0 
0 
0 
0 
0 
0 
0 
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fe 3 
zs : IMPLICIT OUTPUTS: 


; If the call_was due to a system error, then the CASES$V_ABORT bit in 
CONTROL_CASE will be set to start the termination process. 


COMPLETION CODES: 
SS$_CONTINUE = return to what we were doing 
SIDE EFFECTS: 
If the call was due to a LOST.» then just write out the message. 


If the call was due to an error, write out the error and start the 
termination processes of the TSTCNTRL. 


~~ 
wm 


DNASE WN O ODO NAU EWN $$ O OD NAME WIN SO OD NAME WIN 0 OONAUE WI 0 OONIO 


If an error occurs while in abort phase; then the any currently 
running process is not stopped, and when it does stop it may be 
left in the MWAIT state. 


SSERROR: 
«WORD “M<R2,R3,R4,R5,R6,R7,R8,R9,R10,R11> ; Entry mask 


MOVAL SSERROR, (FP) 
SSETAST_S ENBFLG = #0 
CLR R1 


OFFC 


6D FB AF DE re-declare the exception handler 


disable AST een reer? ‘ 
e 


SA D4 L 3 assume it was disab 
09 #50 ~=«#OO1 CMPL RO,#SS$_WASSET ; were AST's enabled? 
oS Wz BNEQ 1 3 no, so continue 
5A 01 00 MOVL #1,R10 3; save it to be reenabled 
10$: 
SSETSFM_S ENBFLG = #0 ; Disabte SS failure mode for PUTMSG 
5B D4 CL R11 3 assume it was disable 
09 50 O01 CMPL RO ,#SS$_WASSET ; was SS failure mode enabled? 
03 12 BNEQ 20$ 3 no, so continue 
5B 01 00 MOVL #1,R11 3 save it to be reenabled 
20$: 


57 OCO8'CF ODE 


MOVAL CNTRL_LOG_RAB,R7 get addr of perm log RAB 


56 04 AC 00 MOVL curs SIGARGLST(AP) ,R6 : Get the signal array pointer 
oc 10 + = €D CMPZV #STS$0_FAC_NO,#STS$S_FAC_NO,- : Is this a message from LIBSSIGNAL? 
000000C3 8F 04 A6 CHESL_SIG_RAME(R6) ,#TCNTRL_K 
1F 12 BNEQ 0$ ; BR if this is a system exception 


; set facility code to be new one 


10 OO9E'CF FO INSV _FAC_CODE ,#STSSV_FAC_NO,- 


set the foci tity code of the 
e 


FAC_NO,= 3 message to be the defined 
04 A6 CHF S$L_51G_RAME(R6) 3 facility code 
66 02 (C2 SUBL2 #2,CHFSL_SIG_ARGS(R6) ; Drop the PC and PSL 


T 
$ 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
¢ 
¢ 


a a a et a st = = ts Ss 4 = 8 Ss ss os — —) bs ss 4s ss ss Ss — 4s ss 


eal al Al Ah AL AL AL AL AL AL AL Ab AL Ab Ab AL AL AL Ah Ab Ah Ah Ah dh Ab dh ah sbrsbeabnahvah nah ahah ahah ealvabvahvah al ah eas shal eal eal eab ea al var alaseal eal 
NHN HHHHHHMMMMOCOIOCTCCVTVOMOOOOOOCWWWIWIWOIVTIVOVIWIVOOWVOWVOIWIOVIOIOOWOVIOOOIOOw 


RMAROO DOLL LLNS HL HMMM S NIO OO ONS VOOVUVWWWii 
PAEAAAAAA AAA AAA AAA AAA AAA AA AAAAAAAMAAAMAAAA AAA AAA AAMAS 


SPUTMSG_S MSGVEC™= CAFS$L_SIG_ARGS(R6).- ; Print the message 
ACTRIN = LNG_FORMAT 


a 
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00DBSsé31 BRW END_SSERROR ; Return to the program 
30$: 
0000045C BF D1 CMPL #SS$_SSFAIL,- ; see if system service failure 
04 A6 CHFSC_S1G_NAME(R6) ; (which means it might be RMS) 
12 BNEQ SYS_ERCEPT ; it is not an RMS error 
oc 10 ED CMPZV #STSSV_FAC_NO,#STS$S_FAC_NO,=- ; Is it an RMS failure? 
01 08 Ag CHFSL_S1G_ARG{(R6) ARMS. R x 
0 12 BNEQ SYS_ERCEPT ; BR if not 
00c6= Ss «331 BRW END_SSERROR ; Return to the program 
SYS_EXCEPT: 


; we have a system error, see if we are in an abort state. If we are, 
; then we cannot clean up anymore, so we exit. If we are not in an 

; abort state, then we will print an error and start the abort process 
; by calling the exit handler. 


BBCS #TCNTRLSV_ABORT,FLAGS,10$ 
3; we are in a abort sequence, cancel the exit handler and bail out 


26 OGA3'CF OD €E3 ; if not in abort, print error 


SSETSFM_S ENBFLG = R11 3; set to previous state 
SSETAST_S ENBFLG = R10 3 set to previous state 
SCANEXH_S ; cancel our exit handler... 
SEXIT_S CODE = STATUS 3 + « « SO that the system can 


worry about cleaning up 


10$: 
3; now produce the reason for the error 


O4DA'CF 04 A6 Save the status 


0000045C 8F 
42 


MOVL —CHFSL_SIG_NAME(R6) , STATUS 
CHPL #SS$_SSFAIL, STATUS 


Assume that it is not SS failure 
But, is it a SS failure? 
No, sO no special message 


BN 
SGETMSG_S MSGID 
MSGLEN 


SIND AAA AA MIT & ££ APOPIPURIPUPIPOPOPUNIMUPUNINPININUN) 2 2 SO Oe ae es 


DNATA NNN NNO BELLE HS LF OQOONMMMMOODDDmonmomnovmworrw 


Obed ad Beaded aD tend ad ead and cad al eal ex eal cl an aa aa ee eal cd ce a a ee cd ca cl a cl cl cl ec cel cl ee cl el el ee el cl cl cal el el el cel cl col cl el 
PEA A-AAA AAA AAAAA AA AA AAAA AA AAA A AA AA AAA AAAAAAAAAAAAAAAOAA AAS 
PDEA APAAA AA AA AA AA AAA AAAAA AAA AA AAA AAA AA AA AAAS AAAS A AAAI A SAO 
a a ed a ad a ee ee ce ce ed eee ee ce ee ee ee el ee ee ce ee ee ed ee ca ce ae ce ec ee a a a a ce ee a a a a a ae oe ee ee 


000000090909 SININISININNNNNI AAA AAPA AAO MINIMISE BE EE BWANA NNN 
AEA OD ODNAN EWN HO OD NAME WINS OD NAME WIN OC ODNAU EWN OODNAUE WOO 


Mt 
M 

" 

mi 
mS 
Ni 
Ni 
N/ 
Ni 
Ni 
Ni 
Ni 
NJ 
Ni 
NJ 
Ni 
NJ 
Ni 
Ni) 
Ni 
Ni 
Ni 
Ni 
Ni 
N 
N 
N 
NI 
N 
Ni 
Ni 
Ni 


= CHFSL_SIG_ARGI(R6),- ; Get message for failure code 
= GETMSG_PTR,- 
BUFADR = GETMSG-DESC,- 
FLAGS = #14,- ; but without the text 
OUTADR = MSG_BLOCK 
O287'CF 9 TSTB MSG_BLOCK+1 ; any FAO arguments? 
1 1 BEQL 3 no, so skip alternate message 
05co" Ct OF PUSHAL GETASG_PTR ; write message w/out FAO tex 
00€31130 af DD PUSHL #TCNTRLS_TEXT ; put the message with an info messa 
08 A6~ «FO 9 INSV CHF SL S1G_ARG1(R6),- 3; and put correct severity code 
09 94 #STS$U_SEVERITY,- > with the message 
6E 38 #STS$S_SEVERITY, (SP) 
10 OO9E'CF FO 97 INSV FAC_CODE ,@STS$V_FAC_NO,- : set the facility code of the 
0c 9C #STS$S_FAC_NO,- > message to be the defined 
6€ 9D (SP) :; facility code 


oe 
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SEP=1 90 T 
System Service Exception Handler “SEP=1 UETP.SRCJUETPHASOO.MAR; 1 ) Ss 
58 03 DO e088 elas MOVL «#3, RB ber of t hed P 
; number of arguments 
be 98 jeal t 8 BRB. «#308 : leave = ethemzes P 
16A3 61 P 
16A3 6190 20$: P 
08 A6 DD 16A3 6191 PUSHL CHF St _S1G_ARG1 (RG) ; no FAO text, so write entire mesg. P 
58 46001~—Ssi 19A6 9138 MOVL #1,R ; pushed one argument e 
3 
1en9 6194 30$: P 
57 66 9% CS 16A9 6195 MULL #4, CHFSL_SIG_ARGS(R6) ,R7 ; Convert longwords to bytes P 
SE 7 £3 16AD 6196 SUBL R7,$ ; Save the current signal array... P 
6— 04 A6 57 2 198) 3b 44 MOVC R7,CHFSL_SIG_NAME(R6) , (SP) 3 «+-0M the stack > 
59 66 58 C1 1685 $199 ADDL3 R8,CHFSL_SIG_ARGS(R6) ,R9 ; calculate the current number 
et ? 89 ; of arguments 
59 04 C0 19er ° 8 ADDL2 #4,R9 ; add the following arguments: 
CO DD 16B8C 6204 PUSHL #0 3; the time parameter 
O5i “CF OF 1985 6205 PUSHAL PRC_NAM_DESC ; the process name 
2 DD 16C2 6206 PUSHL # 
OOC310E4 BF DD 16C4 6207 PUSHL #TCNTRL$_ABENDD!STSSK_SEVERE 3 a severe problem 
00000000'GF 59 FB 1oCe ° 43 CALLS R9,G*LIBSSIGNAL ; write the message 
16D1 6210 SSETSFM_S ENBFLG = R11 ; set to previous state 
1908 e 1} SSETAST_S ENBFLG = R10 ; set to previous state 
163 6 13 ; we want to start abort sequence, so we will do so by going through 
oes e313 3; the exit handler 
1883 ? 16 SEXIT_S CODE = STATUS ; start abort via exit handler 
16EE 6218 END_SSERROR: 
16EE 6219 
Joeg 6220 SSETSFM_S ENBFLG = R11 ; set to previous state 
erp e 21 SSETAST_S ENBFLG = R10 ; set to previous state 
50 01 00 1708 5 MOVL #SS$_CONTINUE ,RO ; return to what we were doing 
1703 6225 


04 RET 
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P 
Pp 
P 
P 
P 
Pp 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
Q 
Q 
Q 
Q 
Q 


D 12 


TSTCNTRL TEST ge CONTROL PROGRAM ot dt BS 9 01 350:08 AX/VMS Macro V04 $08" Page 144 
v04-000 System Service Exception Handler “SEP-1984 04:26: UETP.SRCJUETPHASOO.MAR; 1 (72) 
1704 6227 LNG_FORMAT: 
000C } 4 «WORD “M<R2,R3> 
Vf 6 ; prints the time stamps to the logfile 
oc : cf DE 17 3 ¢ MOVAL CNTR -t G_RAB,R3 ; get addr of perm log RAB 
DO 1708 6 MOVL 4(AP)> ; get the message descriptor address 
: a3. 4 BO 170F $234 MOVW = (R2) RaBsw RSZ(R3) : put the size in 
28 AS «66046 Ae OD 1213 6235 MOVL tigen RBF (R3) : the address in 
1718 6 § $PUT RAB = 3 te the record 
50 01 DO 1721 6 MOVL #SS$_NOR 3 set return status 
0D Quas* CE 03 EQ 1724 6 8 BBS #TCNTRLS tar ie MSG, FLAGS, 10$ ; print mesg if suppose to 
07 04A3'CF t 7 A 6639 BBS #TCNTRLS V-LONG. REPORT, FLAGS.10$ : print mesg if report is long 
50 D4 Vy § ? re CLRL RO ; else, don't print mesg 
OGA3'CF O05 C8 1733 e “8 BISL2 #TCNTRL$V_WRT_MSG,FLAGS ; turn wrt mesg back on 
1737 6245 10$: 
04 1737 6246 RET ; keep working 
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17 5 T 
7 § 8 is SBTTL RMS Error Handler ] 
if é 2 3 FUNCTIONAL DESCRIPTION: y 
4 52 | ; This routine handles error returns from RMS calls. ! 
7 é i : CALLING SEQUENCE: I 
i 2 28 : Called by RMS when a file proressing error is found. ! 
V7 6 38 : INPUT PARAMETERS: I 
V7 é 60 ; None. 1 
7 6 6¢ ¢ IMPLICIT INPUTS: 1 
7 6 64 The FAB or RAB associated with the RMS call. 1 
7 8 6 66 : OUTPUT PARAMETERS: I 
7 : 6 68 None. | 
1738 6 79 : IMPLICIT OUTPUTS: I 
1538 6 i : If the error is severe, the CASESV_ABORT bit will be set to start T 
1733 6 f2 : TSTCNTRL termination. ; 
1738 6 t3 : COMPLETION CODES: i 
1738 6 7 : SS$_NORMAL 1 
1738 6 13 : SIDE EFFECTS: I 
1738 6281 : Program may start termination sequence depending on severity of the T 
4 6 Be: ; error RMS errors RMS$_FNF and RMS$_EOF are ignored. u 
ect t 
17 6 86 RMSERR: T 
007C Vy ; ? #4 «WORD “M<R2,R3,R4,R5,R6> ; Entry mask y 
52 04 a DO 173A 6 8 MOVL 4(AP) ,R2 ; See whether we're dealing with... T 
62 03 91 173E 6290 CMPB «ss #FABSC_ BID, FAB$B_BID(R2) : ...8 FAB or a RAB T 
21 12 10 6 3 BNEQ RAB_ERROR ; BR if it's a RAB ; 
1743 6 38 FAB -ERROR: T 
1743 6294 ; error was caused in by the FAB, see if it is acceptable, write T 
10 ° 33 ; message if it is not ’ 
08 A2 O00000000'8F D1 1745 6 39 CMPL #RMSS_FNF ,FABSL_STS(R2) ; FNF is ,ecce table, T 
03 12 #1748 6 35 BNEQ $ : it isn’ continue T 
OOAS = 31 1788 6 + BRW END_RMSERR ; it is ENF ° «* leave I 
17 1 10$: 1 
Q31A°¢E 43 17 ; MOVAL FILE,R3 3 PABmegecttte code: text string... 1 
4 95 d0 17 MOVL R2,R 3 ...add ress 0 . 1 
Oc A2 DD «1758 4 PUSHL FABSL_STV(R2) gee 313° Bi error... 1 
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8 A 4) 1738 5 PUSHL ay te TES LTH ; «STS field for error... 
55 A DO 17 $ MOVL FABSL_STS(R2) ,R5 i ...and save the error code 
2 11 1288 COMMON ; FAB and RAB share other code 
1006 ° § RAB_ERROR: 
1764 10 ; error was caused in by the RAB, see if it is acceptable, write P 
1798 ? V ; message if it is not ad 
08 A2 QO0000000'8F D1 1764 6 18 CMPL #RMSS$_EOF ,RABSL_STS(R2) ; EOF is acceptable § 
o 12 176C 6314 BNEQ 10$ ; not EOF, so write error R 
0083 = 31 1765 6315 BRW END_RMSERR : it is EOF, so leave ’ 
1554 3 3 10$: I 
53 0336" CE DE 1771 6 18 " — MOVAL ~—s« RECORD, R3 ; RAB-specific code: text string... F 
54 CA DO 1776 631 MOVL RABSL_FAB(R ),R4 ; ...address of associated FAB... T 
OC A DD 177A 6320 PUSHL RABSL_STV(R2) 3 «+eSTV field for error... ¢ 
08 A DD 177D 6321 PUSHL RABSL_STS(R2) 3 «STS field for error... G 
55 08 A200 1780 6 ¢ MOVL RAB$L_STS(R2) ,R5 ; «+.and save the error code 1 
1784 6324 COMMON: ; 
1784 6325 ; we have an RMS error, see if we are in an abort state. If we are, - 
1784 63 § ; then we cannot clean up anymore, so we exit. If we are not in an 
1784 63 ; abort state, then we will print an error and start the abort process 
A 9 o3 8 ; by calling the exit handler. 

14 OGA3'CF OD €E1 17ee e 9 BBC #TCNTRLSV_ABORT,FLAGS,10$ : if not in abort, print error . 
178A 63 § ; we are in a abort sequence, cancel the exit handler and bail out bd 
1k G3 
158A 6335 SCANEXH_S ; cancel our exit handler... P 
1732 Sy SEXIT_S CODE = STATUS 3 + « « SO that the system can ; 
179E 6338 10$: S 

56 34 AG 9A 179 i 9 MOVZBL FABSB_FNS(R4),R6 P 
17A2 6340 SFAO_S CTRSTR = RMS ERR STRING,=- ; Common code, prepare error message C 
17A2 6341 OUTLEN = BUFFER 7 A 
PA ? rk gytour 2 AO s* I 
17A 6344 Pg = R6.- 3 
17A2 6345 P = FABSL_FNA(R4) 1 
0555" ° \7e 6 +8 Ae ry BYyFFER PT : -..and arguments for ERROR_EXIT... $ 
0031130 F DD 17 é 48 PUSHL #TCNTRL$_TEXT fee | 
. N FAC_CODE ,#STS$V_FAC_NO,- ; set the facility code of the 
spo oa: 6 a. 1Fe 3 I one WSTS$S. FAC NO” es 3 message to be the defined 
6E W7ce 6 § (SP) 3 facility code 
55 FO (I7CF é 4 INSV = R5, = ; get the right serverity | 
1701 6355 #STS$V_SEVERITY,- 
03 00 1701 6356 #STS$S~SEVERITY.~ | 
6E 1703 (SP) | 
00 DD 1704 5 PUSHL #0 ; the time parameter 
Osteret DF 17D6 99 PUSHAL PRC_NAM_DESC ; the process name 
2 ODD 17DA PUSHL #2 
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FW OOONOUES UT 


SE 
“SE 
PUSH #TCNTRL$_ABEND 
CALL #9,G* fase PENA 
; we want to start 
3; the exit handler 


SEXIT_S CODE = STATUS 
END_RMSERR: 

MOVL § #SS$_NORMAL,RO 

RET 
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; a severe problem 
; write the message 


t abort sequence, so we will do so by going through 


Page 


; start abort via exit handler 


» return success 


z= <s 
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v04-000 CTRL/C Handler -SEP-1984 04:26: UETP.SRCJUETPHASOO.MAR; 1 (74) 

17k 6 -SBTTL CTRL/C Handler 
Ver oF DEFAULT DISPLACEMENT ,LONG 
VF 8 > FUNCTIONAL DESCRIPTION: 
17F ? : This routine is fovgree when a Control-C is typed by the user rotce. 
17F ¢ : to abort the TSTCNTRL. The routine activates a repeating contro 
17F8 6 : handler (via an a a “band Q10) to “‘eat’’' up any further control-C's 
17F ° 4; which the user may type. A message is printed ae "8 that the TSTCNTRL 
17F 5; has been aborted due to a control_C and the CASESV_ABORT flag is set 
Ver 6 § 3 to start the termination process. 
17F 3 8 : CALLING SEQUENCE: 
17F8 6 : 
17F8 6390 ; Called via AST 
17F ° 91; 
17F 35 ; INPUT PARAMETERS: 
i 

3 one. 
17F8 6395 ; 
17F8 6 38 : IMPLICIT INPUTS: 
i rn 

3 one. 
17F8 6 38 5 
\7re 6400 ; OUTPUT PARAMETERS: 
FEB e602 : hana 

3 one. 
138 gr68 3 
ier otee 3 IMPLICIT OUTPUTS: 
Vr e788 : The CASESV_ABORT flag will be set to start the termination process. 
17F8 6408 ; COMPLETION CODES: 
17F8 6409 ; 
17F8 6410 ; SS$_NORMAL 
17F8 6411 ; 
Ver otig ; SIDE EFFECTS: 
17F8 6414: ALL further Control-C's will be ignored. 
17F8 6415 ; Termination of the TSTCNTRL wiil begin. 
FFB Sci? | 
17F8 6418 — 
17F gt18 CCASTHAND: 

OFFC ere ee Y ~ WORD “M<R2,R3,R4,R5,R6,R7,R8,R9,RIO,RII> ; Entry mask 
era o § 3 set out-of-band so as to ignore any future Control-C's 
17FA oe 4 $Q10_S CHAN = TTCHAN do a read from the TTY 
17FA 5 FUNC = #10$ AS ETMODE! 108M _OUTBAND,~ ; look at the gontrot character 
17FA § Pt = RPT _CNTRLC_AST,=- : and handle it if it is a “C 
444. 4 P2 = #CNTRLC RASR 
' 4 } ; write abort message 
eoceeree"es DF 1 } PUSHAL CNTRLCMSG ; Set message pointer 
a See 2 PUSHL #1 ; Set arg count 
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v04-000 CTRL/C Handler $731 bbe 84 3008 UETP.SRC SE eplasoo. MAR; 1 ° (74) 
00C31130 8F dD ] ° r ? PUSHL #TCNTRLS_TEXT!STS$K_WARNING ; Set signal name 
10 ee FO 1 435 INSV FAC_CODE ,@STSS$V_FAC_NO,=- ; set the foc tity code of the 
C 1 4 § #STS$S_ 7 ; message to be the defined 
: I ? 8 : facility code 
00 DD 183A 64 PUSHL #0 ; Indicat b lL terminati 
00000516'EF pr ! te rr it Hg PRC_NAM_DESC - ga Phen met ord = ebegeeiy 9 = 
00C310E0 DD 184 re PUSHL  #TCNTRLS$ prance ereen -WARNING ; Say abort with the time 
00000000 ' GF 7 «FB } 2 tt? CALLS #7,G*LIBSSIGNA ; Output the message 
: H ore2 3 set case to abort 
0000049B'EF 01 C8 132) gi? BISL2 #CASESM_ABORT,CONTROL_CASE ; start termination sequence 
1 gic SWAKE_S ; wake in case we are in HIBER 
50 01 DO 1863 6451 MOVL #SS$_NORMAL ,RO ; return success 
1866 att 
04 1308 645 RET 
1867 6454 
1867 6455 RPT_CNTRLC_AST: 
0000 1867 ot28 WORD “M<> 
1869 645 : pm the this AST if repeated CNTL- .‘s are issued. To handle the 
1308 6458 : additional CNTRL-C, simply exit 
04 1869 6459 RET 
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IMPLICIT OUTPUTS: 


64,94 TCNTRLSV_EXIT_HAND bit is set in FLAGS. 
2392 CASESV_ABORT Bit is set in CONTROL_ CASE. 
4 COMPLETION CODES: 

rs TCNTRL$_ABORT 


SIDE EFFECTS: 


>>>>>>r>rrrr??r?rrrr>>rrrr>rrrrr 


Will start the termination process. 
uy l clear the AST which prougnt us here. 


L 
LL send control to the main case Loop 


Exit Handler 

° r cad -SBTTL Exit Handler 
A 4 : ; FUNCTIONAL DESCRIPTION: 
6A 6465 : This routine is invoke only if the bed is stopped by external means 
6A 128 ; (e.g, enorner process, yan Ry SFORCEX on it). Act re tine is called as 
6A 6467 : an ASf. When invoke, it will set the Casey T bit to start 
6A 64 } 3 PD atakblen of the T tere (NT RL, $ TCNT NTRESOE exit HAND bit to signal 
6A 6469 ; that we executed the exit +E ¢ ear the AST that brought us here 
6A 9 0; (this is so that we 7 receive termination AST's), and do a branch 
6A 6471 ; subroutine to the main oop so as to receive the terminating 
6A e478 3 rocesses. Right before. the Loe CNTRL is about to exit, it will check 
6A 6475 ; o see if the TCNTRLSV_EXIT_HAND bit is set, and if it is, control will 
ny pate: ; then return to this routine” may a RSB. 
6A 6476 : CALLING SEQUENCE: 
° one ; Reached as an AST when termination is attempted by outside mechanism. 
6 6480 : INPUT PARAMETERS: 

ete : None. 

6484 : IMPLICIT INPUTS: 

ones : None. 

6488 : OUTPUT PARAMETERS: 

6489 ; 

6490 ; None. 

6491 ; 

2738 3 

6495 ; 


DPDP_YRPAAAAA AAA A AAA AAA AAA AA AAO 


EXIT_HANDLER: 
0000 WORD “M<> 3; Entry mask 
; set the proper flags 
SL #CASESM_ABORT sorrel CASE to start termination process 
SL say we are in abort mode 
SL to say we came eel. the 
exit handler 


#TCNTRLSM_ABORT, 
STENTRESAT “EXIT VAAN. OP AGS 


aon 


, 000004 BI 
opooouas Er a0005000 BFE Bist 


me a a a ae et a td ts = = 8 = = = = I = a = 8 8 8 8 8 ss = 


PUPP PUPP AAI 


DEA PAA AAA AAAAAAAAAAO 
Sn tt 


DMWOOOOPy >>> >Y>>yY 
NOUS WIN OO 


DNNAAAAAAO 


z— 
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ve4=000" Ett Handler one PROGRAR "S73Eb=1984 04:26:08 LUETPeSRCSUETPHASCO MaR:1 29° (35) 
3 18 ; clear the AST which brought us here 
-Q00000000'GF 00 FB ! 3 ? CALLS #0,G*SYSSCLRAST ; clear current AST 
! 2 5 ; and send control back to the main case loop 
EASS 30 ! 4 ; 5 BSBW MAIN_LOOP 3; start termination 
} 4 : ; set our error status and leave for good 
50 00C3002C 8F D0 } + : ; MOVL #TCNTRL$_ABORT,RO ; abort status 
04 ! : o RET ; BYE NOW! 
1898 65 «END TSTCNTRL 
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LNMGRPLEN 
MAKE- TMP 

MAXT 

MBX 

MBX 

MBX 

NON SEDER 
NO_ Crt PRC 


MAKE 
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PRCINFOSL_FLAGS 
PRCINFOSL_PAGEFLTS 
PR CINF OSL PGFLPEAK 


PRCINFOSW_MBR_ CHA 
PRCINFOSW_NODE i 


PRC INF OSH. “VERSTON_S1Z 


CESS_TERM_BLK 
PRO Aer TERM: SBRTN 
PROC_INFO_TOP 


“FILEnS 
PRUSV “DETACH 


PAWL LST_HEAD 
P~CMPCT_Q- HEAD 
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RABSB_PSZ 
RAB$B_RAC 
RABSC~BID 
RABSC_BLN 
RABSC~SEQ 
RABSL-CTX 
RABSL-FAB 
RABSL~PBF 
RABSL_RBF 
RABSL_ROP 
RABSL~STS 
RABSL_STV 
RABSL _UBF 
RABSV_PMT 
KABSW-RSZ 
RAB_ERROR 
RCRO_ERR_DESC 
RCRD-ERR—F 
RCRD-ERR_MSG 
RCRD-ERR-STR 
RCRD-SIZE 
RECORD 
REPORT_DESC 
REPORT-ERR 
REPORT-IN 
RETURN-BLK 
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Symbol table 


on? 
UETP.SRCJUETPHASOO.MAR; 1 


eeeeeeee GX A 
A SYS$Q10 eeeneenee GX A 
START_ASG_RTN bas B r SyS$al0W panest. oe 
START -DESC gf R 4 SYS$REWIND eenecece Oh OA 
START_ST 8 SYSSSETAST ekeeeeee 6X A 
START-STR_LEN O0004DA R 4 SY S$SETIMR eeceeeee Gy OA 
STATUS FFE R A SYSSSETPRN eeereeee GX A 
OP_ASG BB FEE RR OA SYSSSETPRV oe oo 
STOP_ASG_RTN 0000318 R 4 SYSSSETSFM eeenenee GX OA 
OP-DEST it FO R QA SYSSWAKE 000010A R 04 
STOP" PROC 00 R 04 SYS_COMMAND 0001628 R OA 
STOPTSTR_LEN . 0900000 TUNTRES = 90630000 
STP_ASG_DS = ponngnes TENTRLSM ABLE TO_URAP = 90600010 
DESC Seeanees of. GA TCNTRLSM~ABOR std = 90000004 
PCASE 0000003p TCNTRLSM_DELETE_TEMP_L a th 4'4' 43 
STRCT_TOP_BOT = 00000004 TCNTRLSM-EXIT = 00008000 
STRT_ASG_ BSC = BoonoOTe TENTRUSHCEXIT HAND ey = 29908000 
STRTRee : 00000293 ROA TENTRESA-LONGIREPORT = 00000008 
= 00000 03 on oR RMENTS = 0000004 
STS$R_INFO = 00000004 TCNTRLSM_PRNT_ = 00010000 
STSSKTSEVERE = P0080 TCNTRLSM~PROC-NUKED = 900; 005 
STS$K~SUCCESS = 00000000 TCNTRLSM~PROC~ PEND = boppee oe 
TSS$K_WARNING - TCNTRLS$M_REWOOUND . 
STSSN~ INHIB RSG = 9900000¢ TENTRLSH”SET LLOGNAM : G00 
STSSS“FAC INO = 00000003 TCNTRLSA”STRT MORE = 90000100 
STS$S “SEVERITY = 00000010 TCNTRLSM_TIMER, SE = 00004000 
TS$V_FAC NO = 00000000 TCNTRLSM MaTIME SEX = 00000020 
STS$V-SEVERITY 0000045A R 04 TCNTRLSM WRAP = a tt 
STSFLG 00001145 R OA TCNTRLSV “ABLE TO. mn 444° 
SYNTAX_ERROR ee thn: Ag aR TCNTRLSV~ABO ‘aide me 4444 
SY SECANEXH Sensowns tn) a TENTRESV= eT = 90000008 
ketkeee x - = 
SySSCLOSE” eeeeeeee a OA TENTRUSVIFRSTCFILE REACHED == 09900009 
Reeeeeenr R = 
SYSSCLRAST eeeeeenee GX OA TCNTRL$V_LONG_REPO ts = 00000006 
SYSSCONNECT teeeeeee GX OA TCNTRLS$V~PRNT~COMMEN = Boones 
SYSSCREATE eeeeeeee GX OA TCNTRLSV~PROC~NUKED me ttt fh 
SYSSCRELNM eeeeeeee GX OA TCNTRLSV_PROC_ PEND = 8000004 
SYS$SCREMBX pesneane. an. ta TCNTRLSV~REWOOND = 80000007 
SYSSDASSGN nee a ok TCNTRLSV~STRT_MORE = 00000008 
SYSSDCLEXH eeeeneee GX OA TCNTRLSV-TIMER SET = 0000000 
SYSSDELPRC eteeeree GX OA TCNTRLSV_TIME EXP = 000 oS 
SYSSERASE ected TH TCNTRLSV-WRT_ASG = Ree te 
SYSSEXIT eeee A TCNTRLS$_ABENDD s C 
SYSSEXPREG cecevese ROA dhe a = Oo¢ 1088 
SYS$FAO teeeeeee GX OA TENTRLSBEGIND. = 00630651 
seamen seme OR fees : Bait 
eeeeneee 6X - = 
SYSSGETCHN eeeeee A TCNTRL$_OPENIN = 11 | 
SYSSGETDVIW rama hE TENTRESTIEXT 130 R 02 ‘ 
SYSSGETJPIW eeeeeere GX A TCNTRL_ABORT_MS - | ? 
SYSSGETAMSG eeeeeere 6X A TCNTRL_K 1 6 R 02 
SYSSHIBER eteterer GX A TCNTRL_PRM 12 » A 
SYSSOPEN teereere GX A TCNTRL pent et 10 
SYSSPARSE eectenee GX OA Tene cOrE OES 12 
eetene xX - 
SYS$PUTMSG “te . 
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AST 
ERR-STR 
PROT_ 
PROC_ 


EXP_BLK 
SG 


BUF F~ 
a 
DESC 
LPHA 
OCTAL 


VAL 

COM 

LOG 
R 
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fe 
oc 
TPASM_BLANKS 


ERM 
ME 
ME 
ME 
ME 

TMP 
TOKEN 
TOTAL 
TOTAL 
TPAS 
TPAS 
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Psect synopsis “SEP=1984 04:26: UETP.SRCJUETPHASOO.MAR; 1 (75) 
tome me ec a a e woman t 
! ;_Psect synopsis ! 
PSECT name Allocation PSECT No. Attributes 
» MS « 00000000 ( 0.) 00¢ QO.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
SABSS 4 4 ( 8.) 01 ¢ 1.) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
RODATA 00 4 ( 1292.) if ( §°} NOPIC USR CON REL LCL NOSHR NOEXE RD NOWRT NOVEC PAGE 
eee ae 00 rt 19060? ( -) NOPIC USR CON REL LCL NOSHR NOEXE' RD WR VEC PAGE 
RWDAT 3? 88 ( 3376.) O04 ¢( 4.) NOPIC USR CON REL LCL NOSHR NOEXE' AD WRT NOVEC PAGE 
ID DESC LOCAL 1 ( 16.) Q5 ¢ 5.) NOPIC USR CON ABS LCL NOSHR NOEXE RD NOWRT NO PAGE 
PROC_TERM_LOCAL 444 59 ( 601.) 06 ¢ 6.) NOPIC USR CON ABS LCL NOSHR NOEXE RD NOWRT NOVEC PAGE 
TEMP” COmM_C 4 Ae ( 285.) t4 ( 7.) NOPIC USR CON ABS LCL NOSHR NOEXE RD NOWRT NOVEC PAGE 
CREAT_PROC_LOCAL 0000045 ( BP? 8 ( 8.) NOPIC USR CON ABS LCL NOSHR NOEXE RD NOWRT NOVEC PAGE 
GET_PARSE_COCAL 00000254 ( 596.) 09 ¢ 9.) NOPIC USR CON ABS LCL NUSHR NOEXE RD NOWRT NOVEC PAGE 
TSTCNTRL 44d 9B ( 6299.) OA ( 10.) NOPIC USR CON REL LCL NOSHR EXE RD NOWRT NOVEC PAGE 
TTIBSSTATES 00001D4 (¢ 468.) OB ( 11.) PIC USR CON REL LCL SHR EXE RD NOWRT NOVEC BYTE 
“LIBSKEYOS 00000018 ( 24.) OC ¢ 1§°3 PIC USR CON REL LCL SHR EXE RD NOWRT NOVEC WORD 
“LIBSKEY1$ 0000003D (¢ 61.) OD (¢ 13.) PIC USR CON REL LCL SHR EXE RD NOWRT NOVEC WORD 
porwr eee ww nr mer swoon ewer oeres + 
! ; Performance indicators ; 
Phase Page faults CPU Time Elapsed Time 
Initialization 3 00:00:00.98 00:00:00.82 
pomnens processing 122 e's Bb OR R896 -Be 
1804 Bee 1:02.17 ee 99 
ee table sort 10 0:00:04.09 83:8 709.48 
Pass 2 1084 Bo: 0:18.97 00:00:48.45 
Symbol table output 108 0:00:00.65 00:00:01.39 
Psect synopsis output 8 Ba: 0:00.06 00:00:00.20 
Cross-reference output 2 Q: 709-08 hs St Be 
Assembler run totals 317 00:01:26.76 00:03:22.41 


y38.9"b, ng set _s was 900 pages. 
tes (652 pages) of virtual memory were used to puter the intermediate code. 
tp re were 150 pages of symbol table space ot located 5 hold 2707 non-local and 81 local symbols. 
6555 source Lines were read in Pass 1, producing 69 skleat records in Pass 2. 
17 pages of virtual memory were used to define 96 macros. 
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$255$DUA28: (UETP.OB JUETP MLB; 1 
33$DUA :(SYS$.08 B:1 
:CSYSL1B STARLET. Ciie:2 8 
=82558 (all Libraries) 4 


| 
Macro Library name Macros defined 
3363 GETS were required to define 84 macros. 
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There were no errors, warnings or information messages. 
MACRO/LIS=L1S$:UETPHASOO/0BJ=0BJ$:UETPHASOO MSRC$:UETPHASOO/UPDATE=(ENH$:UETPHASOO) +EXECML$/LIB+LIB$:UETP/LIB 
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